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ABSTRACT 


Current  software  design  techniques  are  organized  around  either  data  transformation  or 
stimulus-response  control  flow  abstractions.  Neither  of  these  approaches  apply  to  the  flow 
of  presentation  and  answer  analysis  that  characterizes  computer-aided  instruction.  This 
thesis  introduces  a  new  design  abstraction,  concept-flow,  and  technique  that  exploits  it  in 
the  design  of  tutorial  software.  The  design  technique  uses  concept-flow  diagrams,  which 
highlight  presentation  of  information  and  verification  of  user  comprehension.The 
technique  is  explained  through  application  to  a  tutorial  on  the  physics  of  underwater  sound. 
The  design  and  implementation  of  a  prototype  concept-flow  interpreter  are  presented.  This 
design  technique  and  the  associated  interpreter  allow  for  rapid  construction  of  highly 
flexible  computer-based  tutorial  strategies,  useful  for  both  traditional  CAl  applications  and 
for  more  efficient  help-sequence  design  in  interactive  systems. 
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I.  INTRODUCTION 


A.  THE  PROBLEM 

More  and  more,  instructors  are  using  computers  as  instructional  tools  both  in  and  out  of  the  classroom 
environment.  The  use  of  a  computer  as  an  insu'uctional  tool  is  referred  to  ^  Computer-Aided  Instruction 

(CAI),  “a  process  in  which  the  computer  is  actually  the  prime  deliverer  of  the  instruction _ ”  (Burke,  1982, 

p.  16) 

The  educational  promise  of  CAI  lies  in  its  ability  to  individualize  and  personalize  the  instructional 
process.  CAI  lessons  can  test  as  well  as  tutor  by  encouraging  students  to  become  active  participants  in 
their  own  learning.  Students  work  at  their  own  pace  while  the  computer  monitors  their  progress. 
Students  are  kept  informed  of  their  progress  through  intermediate  response  and  achievement  summaries. 
(Marks,  1981,  p.  228) 

Current  techniques  for  design  of  instructional  software  tend  to  produce  computer-driven  tutorials.  The 
computer  system  drives  the  presentation  of  a  specific  topic  and  determines  to  what  degree  the  presentation  of 
that  concept  will  occur  even  if  the  user  already  has  a  grasp  of  the  concept.  The  computer  presentation  of  the 
lesson  is  an  almost  linear  process;  presentation  of  the  concepts  is  in  a  specific  order  with  only  limited  or  no 
deviation  to  this  order  allowed.  Thus,  current  techniques  do  not  simulate  the  real-world  teaching  environment. 
In  a  real-world  teaching  environment,  the  teacher  determines  the  level  of  student  comprehension;  the  teacher 
determines  when  the  student  has  difficulty  understanding  the  concept  and  can  therefore  digress  to  a  level  of 
comprehension  upon  which  to  build  and  teach  the  concept;  and  the  teacher  determines  when  the  student 
understands  a  concept,  when  not  to  continue  dwelling  on  the  concept  at  hand  and  when  to  move  on  to  a  new 
concept  presentation. 

Current  software  design  techniques  do  not  allow  for  the  proper  representation  of  the  concept-flow 
needed  to  simulate  the  real-world  teaching  environment  in  CAI.  They  aid  in  determining  the  control  flow, 
when  to  execute  a  process,  and  the  daui  flow,  how  data  is  passed  between  processes,  within  the  system.  Both 
of  these  techniques  arc  u.scful  in  the  software  engineering  field  but  arc  not  very  helpful  with  CAI  design. 
There  is  a  need  for  a  design  technique  that  allows  the  user  to  drive  the  concept  presentation.  Therefore,  we 
want  to  design  a  technique  that  allows  for  a  closer  simulation  of  the  teacher-student  interaction  environment. 
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B.  THE  NEEDS 


To  simulate  the  real-world  teacher-student  environment,  the  computer  system  must  determine  and 
detect  when  the  lesson  plan  needs  adjustment  to  better  suit  the  needs  of  the  user.  The  program  must  make  the 
determination,  as  does  a  teacher,  based  upon  user  response.  There  are  two  ways  of  making  this  determination: 
either  the  user  explicitly  claims  no  knowledge  or  the  user  specifically  claims  knowledge  that  requires 
verification  to  ensure  expertise. 

If  the  user  claims  little  or  no  knowledge  of  a  concept,  then  presentation  of  the  tutorial  should 
automatically  occur.  Once  the  user  initiates  the  program  and  begins  demonsuating  an  understanding  of 
concepts  through  task  accomplishment,  an  actual  explanation  of  a  concept  should  occur  only  when  the  user 
demonstrates  or  claims  unfamiliarity  with  that  concept.  When  the  user  has  trouble  comprehending  a  concept, 
the  program  should  backtrack  until  a  level  of  comprehension  is  found.  Basing  the  flow  of  the  lesson  upon  this 
level  of  comprehension,  the  program  then  begins  from  this  concept  and  moves  forward.  As  Krendl  suggests, 
this  allows  the  novice  user  to  benefit  from  structure,  systematic  presentation  of  material,  and  opportunity  for 
practice.  (Krendl,  1988,  p.  371) 

“High  aptitude  students  are  more  likely  to  benefit  when  they  ean  control  the  pace,  amount  of  practiee, 
level  of  difficulty,  and  style  of  instruction  to  suit  their  own  needs.”  (Krendl,  1988,  p.  371)  Therefore,  if  the 
user  shows  or  claims  knowledge  of  a  concept,  omission  of  a  tutorial  of  the  concept  should  occur  allowing  the 
user  to  progress  onto  the  next  concept.  This  will  prevent  the  u.ser  from  experiencing  the  boredom  produced 
by  forcing  him/her  to  cycle  through  a  tutorial  hc/shc  already  understands.  An  expert  user  should  be  able  to 
drive  the  presentation  forward  from  concept  to  concept  after  demonstrating  an  understanding  of  each  concept 
through  successful  task  accomplishment.  Therefore,  the  user,  instead  of  the  computer,  is  guiding  the  concept 
presentation. 

Software  designers  need  to  allow  for  this  varying  concept  presentation  flow  in  the  program  design.  The 
program  should  allow  a  user  with  an  arbitrary  level  of  comprehension  to  traverse  through  the  program  dealing 
only  with  the  presentation  of  concepts  when  they  arc  not  understood.  Hence,  in  order  to  allow  for  this  tutorial 
presentation,  the  concept  presentation  must  encourage  minimal  ordering  constraints. 

Alfred  Bork,  a  leader  in  the  pedagogical  development  of  computer-based  learning,  uses  pedagogical 
flowcharts  to  diagram  the  presentation-flow  of  a  tutorial  (electronic  mail  from  Bork).  These  flowcharts  are 
non-hicrarchical,  informal,  and  arc  difficult  to  translate  into  software.  There  is  a  need  for  a  formal  diagram 
that  more  explicitly  displays  the  hierarchy  of  the  presentation  and  that  leads  to  a  natural  translation  into 
software. 
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C.  A  SOLUTION:  CONCEPT-FLOW  DIAGRAM 


To  support  a  minimal-ordering  design,  we  introduce  a  new  diagram  to  the  structured  analysis  design 
methodology.  The  new  tool  is  called  a  Concept-Flow  Diagram  (CFD).  A  CFD  is  for  use  to  aid  in  the  design 
of  CAT  by  software  engineers,  computer  scientists  and  anyone  involved  in  the  process  of  designing  a  tutorial 
of  any  type.  The  CFD  is  a  high-level  diagram  and  is  for  use  in  conjunction  with  pedagogical  design,  a  scries 
of  insUTictional  goals,  and  Dataflow  Diagrams  (DFD),  the  connections  between  program  subunits. 

1.  Brief  Overview  of  the  Design  Methodology 

Before  attempting  to  design  the  CFD,  the  designers  must  first  attempt  a  pedagogical  design.  It  is 

during  this  stage  that  the  instructional  materials  arc  fully  specified  from  an  insunctional  point  of  view  (Bork, 

p.  106).  From  the  pedagogical  design,  specific  concepts  that  need  presentation  should  be  apparent. 

A  general,  but  less  will-defined,  method  is  to  use  the  educational  obJecti\cs  and  task  analyses  to 
subdivide  the  course  into  a  .set  of  concepts  and  techniques  which  have  to  be  learned.  These  can  be 
partitioned  into  a  series  of  levels,  depending  on  their  complexity,  and  usually  checks  arc  made  to  ensure 
that  the  student  has  reached  a  satisfactory  standard  of  ma.stery  before  he  is  allowed  to  continue  to  higher 
levels.  (Walker,  1984,  p.  45) 

These  concepts  translate  into  a  module  or  bubble  in  the  CFD.  The  CFD  represents  the  forward  and 
the  backward  presentation  of  these  concept  modules.  Hartley  argues  for  “.  .  .  a  more  comprehensive 

representation  of  the  .student’s  knowlalgc  state  on  which  to  base  decision  making _ ”  (Walker,  1984,  p.  39) 

Therefore,  at  the  start  of  a  new  concejH  module,  the  aser  is  given  a  task  or  comprehension  test  to  complete 
via  a  mastery  test  (MT).  This  allows  for  an  active  involvement  in  learning,  which  is  necessary  for  effective 
learning  and  achieving  desired  outcomes  (Levin,  1981,  p.  1).  Performance  upon  completion  of  this  task 
determines  the  user’s  level  of  comprehension.  If  the  user  demonsaates  comprehension  or  satisfactorily 
completes  the  task,  the  system  moves  on  to  the  next  task  or  in.struction-relatcd  exercise.  If  the  user  does  not 
complete  the  ta.sk  or  cannot  pass  the  comprehension  test,  the  feedback  should  “. . .  locate  errors  and  provide 

information  so  that  the  learner  can  put  them  right - ”  (Walker,  1984,  p.  43)  and  also  provide  “. . .  corrective 

procedures  by  which  gaps  in  learning,  mistakes,  and  misunderstandings  can  be  relearned  or  corrected.” 
(Levin,  1981,  p.  16)  The  sy.stem  then  reverts  to  a  tutorial  and  presentation  of  the  concept.  The  idea  is  to 
introduce  the  tutorial  only  when  needed.  Upon  successful  completion  of  the  MT  for  the  specific  concept 
module,  flow  moves  on  to  the  next  concept  module.  This  is  in  keeping  with  Bork’s  suggestion  that  pretesting 
and  post-testing  be  included  in  the  tutorial  to  make  individualization  possible.  (Bork,  p.  77) 
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2.  Symbols  Used 


Wc  based  the  symbols  used  in  die  CFD  on  Dataflow  Diagrams  to  allow  for  easy  understanding 
and  translation  of  the  new  diagram.  Refer  to  Yourdon’s  recent  work  (Yourdon,  1989,  pp.  139-187)  for  a 
detailed  explanation  of  the  DFD. 

a.  Rectangle 

A  rectangle  represents  external  entities,  or  terminators,  with  which  the  system 
communicates.  A  terminator  is  usually  a  per.son,  a  group  of  people,  or  another  system  outside  the  control  of 
the  system  modeled.  The  systems  analyst  cannot  change  the  contents,  organization  or  internal  procedures 
associated  with  the  terminators.  (Yourdon,  1989,  pp.  155-156,  pp.  345-347)  This  is  the  same  as  a  terminator 
in  a  DFD. 


b.  Circle 

A  circle  represents  concept  that  is  to  be  presented.  (Also  referred  to  as  concept  bubble). 
Circles  are  decomposed  into  further  Concept-Flow  Diagrams  as  needed  to  detail  the  concept-flow  forming  a 
design  hierarchy. 

c.  Arrow 

An  arrow  represents  concept-flow  and  direction.  It  points  to  the  next  concept  for  introduction 
and/or  MT  to  be  given.  An  arrow  indicates  the  dc|xmdency  of  concepts  or  modules  from  one  part  of  the  lesson 
to  another. 


d.  Octagon 

An  octagon  represents  a  scries  of  tasks  that  form  a  MT.  Octagons  may  be  decomposed  into 
further  Concept-Flow  Diagrams  to  show  task  sequencing  and  help  presentation. 

3.  Labelling  of  Symbols  U.sed 

The  name  given  to  each  concept  should  be  specific  enough  to  give  the  user  of  the  diagram  an  idea 
of  exactly  what  type  of  information  is  presented  in  the  concept  presentation.  The  name  of  the  MT  should  be 
the  exact  same  as  the  concept  or  concepts  that  the  MT  is  testing  for  comprehension.  Arrows  do  not  get  labelled 
since  they  only  represent  the  direction  of  flow. 
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D.  APPLICATION  OF  THESIS 


Concepi-Flow  Diagrams  arc  extremely  useful  and  immediately  applicable  to  CAl  and  computer 
tutorials.  They  benefit  both  the  software  designer  and  the  user.  Software  designers  have  at  their  disposal  a 
structured  analysis  design  tool  to  improve  the  presentation  and  flow  of  their  program.  Also,  they  are  given  a 
tool  that  looks  somewhat  familiar  to  software  engineers,  making  the  learning  of  CFD  design  easier.  The  user, 
on  the  other  hand,  is  able  to  use  a  CAI  program  that  better  suits  hi.s/hcr  needs.  The  tutorial  is  more  useful  to 
the  general  user.  Through  the  use  of  Concept-Flow  Diagrams,  the  novice  user  is  challenged  but  not  frustrated 
with  the  presentation  of  new  material  and  the  experienced  user  is  allowed  to  demonstrate  understanding  rather 
than  becoming  bored  with  presentation  of  concepts  hc/shc  already  comprehends.  Help  is  provided  only  when 
the  user  demonstrates  a  deficiency,  either  through  task  performance  or  explicitly.  Concept-Flow  Diagrams, 
thus,  improve  the  functionality  of  CAI  tutorials. 

E.  THESIS  CONTENTS 

Chapter  11  explains  the  methodology  behind  the  CFD.  Chapter  Ill  explains  the  application  of  the  CFD 
methodology  to  the  design  of  an  actual  tutorial  that  will  be  implemented.  Chapter  IV  describes  the  program 
that  was  written  for  the  tutorial  implementation.  And  finally,  chapter  V  presents  the  conclusions  and 
directions  for  future  research. 
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II.  CONCEPT-FLOW  DIAGRAM  METHODOLOGY 


A.  PHYSICS  OF  SOUND  TUTORIAL 

The  Concept-Flow  Diagram  (CFD)  design  methodology  was  developed  to  aid  in  the  design  of  a  tutorial 
concerning  the  physics  of  underwater  sound.  This  area  was  chosen  bccausrc  the  U.  S.  Navy,  specifically, 
Space  and  Naval  Warfare  Systems  Command  (SPAWARS  (PMW-183)),  requested  that  we  design  a  tutorial 
to  present  just  that.  The  intended  users  of  the  tutorial  are  U.  S.  Navy  enlisted  personnel  in  the  Ocean  Systems 
Technician  Analyst  (OTA)  rating.  This  user  group  includes  the  high  school  graduate  who  basically  has  no 
knowledge  of  the  topic,  and  the  experienced  OTA,  who  has  worked  with  and  studied  the  physics  of  sound. 
The  tutorial  begins  with  an  introduction  of  how  to  use  the  particular  computer  program.  The  concepts  covered 
in  the  tutorial  arc  basic  definitions  regarding  the  physics  of  sound,  the  characteristics  of  sound,  ocean 
characteristics,  ray  path  transmission  and  loss,  the  passive  sonar  equation,  and  the  sound  velocity  profile.  The 
placement  of  mastery  tests  (MT)  and  the  concept-flow  of  the  Physics  of  Sound  Tutorial  (POST)  are  discussed 
in  this  and  the  following  chapter. 

B.  PEDAGOGICAL  PHASE  OF  DESIGN 

“The  key  to  pedagogical  design,  in  all  its  phases,  is  the  extremely  good  teachers.  It  is  the  competence 
of  the  good  teacher  that  one  tries  to  capture  within  the  computer  program.”  (Bork,  1990,  p.  6)  As  suggested 
by  Bork’s  methodology  (Bork,  p.  106),  a  professor  of  physics  was  consulted  for  the  pedagogical  design  phase 
of  the  POST.  To  form  a  pedagogical  basis  for  the  design,  designers  must  determine  two  things  to  allow  for 
easy  transition  to  the  design  of  the  CFD.  First,  the  pedagogical  phase  must  determine  exactly  what  the  concept 
goals  are  and  second,  what  tasks  to  include  in  the  MT.  These  determinations  arc  formed  in  a  scries  of  four 
steps. 

1.  User  Group 

The  first  step  is  to  determine  the  user  or  person/group  of  people  for  whom  the  system  is  being 

built. 

The  user  may  be  job  specific  such  as  an  operator,  a  supervisor  or  an  executive;  the  user  may  be  based 
on  the  level  of  experience  of  the  potential  users  of  the  system;  or  the  u.scr  may  be  inherent  in  the  concepts 
being  taught.  (Yourdon,  1989,  pp.  155-156) 
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Knowing  who  ihe  users  of  the  tutorial  will  be  affects  the  pedagogy  of  the  tutorial.  The 
terminology,  complexity  of  mastery  tests,  and  the  order  of  the  presentation  are  much  different  for 
the  novice  than  the  expert  user.  The  pedagogy  for  the  novice  user  begins  with  low-level  concept 
goals  and  mastery  tests  and  increases  in  complexity  as  the  user  completes  portions  of  the  tutorial. 
The  expert  user,  on  the  other  hand,  begins  with  high-level  concept  goals  and  ta.sks. 

2.  Concept  Goals 

Once  the  u.ser  group  is  identified,  the  next  step  is  to  examine  the  tutorial  system  as  a 
whole  and  determine  the  overall  concept  goals.  In  other  words,  the  analyst  needs  to  decide  what 
the  student  must  comprehend  upon  completion  of  the  tutorial.  This  step  can  take  the  form  of  a  list 
of  all  of  the  concepts  needed  for  prcscnuiiion  in  some  form  within  the  tutorial.  This  list  of  concepts 
is  then  grouped  into  categories  of  related  concepts  and  each  category  assigned  a  descriptive  name. 
In  the  case  of  the  POST,  we  produced  the  list  in  Figure  1 . 

3.  Concept  Dependencies 

Once  the  concept  goals  arc  known,  the  next  step  is  to  determine  the  dependency 
relationship  between  each  of  the  concept  categories.  In  other  words,  the  analyst  needs  to  decide 
what  concepts  must  be  taught  prior  to  other  concepts  in  order  to  facilitate  comprehension.  For 
example,  it  makes  no  sense  to  present  the  passive  sonar  equation  before  presenting  what  a  source, 
sound  and  detector  arc  and  what  the  relationship  and  behaviors  are  in  the  medium  through  which 
the  sound  is  travelling.  As  the  dependency  relationships  became  apparent,  the  order  of 
presentation  of  these  groups  based  on  the  dependencies  also  became  apparent. 

The  order  of  the  presentation  is  not  linear.  Linearity  occurs  when  the  entire  tutorial 
presentation  is  restricted  to  the  prc.scntation  of  one  concept  after  another  in  a  specific  order.  While 
this  may  be  appropriate  for  a  fully  homogenous  group  of  students,  it  forces  experts  to  review 
known  material.  If  the  order  is  initially  linear,  subdividing  and  rearranging  the  contents  of  the 
concept  goal  categories  is  ncccs.sary  until  the  dependencies  arc  more  explicit.  The  subdivision  and 
rearrangement  of  the  concept  goal  categories  leads  to  the  formation  of  concept  categories  that 
allow  the  u.scr’s  knowledge  to  derive  the  order  of  presentation  within  a  .section  of  the  tutorial.  The 
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original  list  of  concept  goal  categories  and  their  dependency  relationship  for  POST  is  illustrated  in  Figure  2. 
The  original  order  of  the  concept  presentation  is  linear.  Upon  reexamination  of  the  concept  categories  and 
their  contents,  we  discovered  that  several  of  the  categories  were  related  and  could  be  combined.  The 
reexamination  included  looking  for  related  concepts,  no  matter  which  category  they  were  a  part.  In  Figure  2, 
Fay  Path  Transmission  and  Transmission  and  Propagation  Loss  categories  are  related,  so  these  two 
categories  were  combined.  The  rearrangement  of  the  categories  changed  the  dependency  relationship. 
Categories  emerged  whose  order  of  presentation  would  be  left  to  the  student.  Students  may  choose  if  Ray  Path 
Transmission  and  Loss  is  presented  before  or  after  Ocean  Characteristics.  Figure  3  illustrates  the  refined 
concept  dependency  relationships. 

4.  Mastery  Test  Placement 

The  last  step  is  to  detennine  where  in  the  .system  to  place  the  mastery  tests  and  what  tasks  to 
include  within  these  mastery  tests.  A  MT  is  a  task  or  a  group  of  tasks  such  that  the  tasks  arc  “. . .  large  enough 
to  expose  the  student’s  misunderstandings  and  correct  them.”  (Walker,  1984,  p.  43)  User  performance  upon 
completion  of  the  task  determines  the  next  state  in  the  tutorial  flow.  If  the  user  successfully  completes  the 
task,  the  MT  directs  the  tutorial  flow  in  a  forward  direction  advancing  to  another  state  or  concept.  However, 
if  the  user  docs  not  successfully  complete  the  uisk,  answer  analysis  within  the  MT  determines  the  tutorial 
flow. 

Answer  analysis  of  a  task  consists  of  determining  the  possible  answers,  both  correct  and  incorrect, 
and  if  ncccs.sary,  the  types  of  answers  given  to  previous  ta.sks.  By  maintaining  a  history'  of  previous  answers, 
a  pattern  of  errors  made  may  develop  making  the  area  of  deficiency  more  specific.  If  answer  analysis  cannot 
immediately  determine  the  exact  area  t'f  deficiency,  the  tutorial  backtracks  through  the  mastery  tests  until  the 
deficient  area  is  pinpointed.  The  mastery  tests,  not  the  concept  bubbles,  determine  the  user’s  level  of 
comprehension. 

Mastery  tests  arc  a  part  of  the  bubble  to  ensure  the  user  comprehends  the  low-level  concept  goals. 
Mastery  tests  can  and  should  be  given  upon  completion  of  one  or  more  related  bubbles  to  ensure  the  user  is 
not  only  grasping  the  individual  concepts  goals,  but  is  also  able  to  tic  these  concepts  together  to  understand 
the  more  general  concept  goal.  The  placement  of  mastery  tests  is  illustrated  in  Figure  4.  Successive  tasks 
within  a  MT  should  increase  in  complexity.  By  gradually  increasing  the  complexity  of  each  task,  the  MT 
design  makes  answer  analysis  easier. 
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FIGURE  4:  MT  Placement 


C.  CONCEPT-FLOW  DIAGRAM 


Upon  completion  of  the  pedagogical  phase  of  design,  the  next  step  is  to  formulate  the  concept-flow  by 
using  the  CFD.  At  this  point  in  the  tutorial  design  process,  the  concepts  to  be  presented  and  the  tasks  to 
include  in  the  MT  have  been  determined  in  the  pedagogical  phase.  The  basic  premise  behind  the  CFD  is  to 
let  the  user  demonstrate  level  of  comprehension  and  delve  into  the  actual  concept  presentation  only  if 
necessary,  i.e.,  the  user  demonstrates  a  deficiency  in  a  specific  area.  The  u.ser  should  have  the  option  of  either 
starting  with  a  tutorial  presentation  or  delving  into  a  MT.  Theoretically,  the  expert  user  should  be  able  to 
traverse  through  the  tutorial  from  MT  to  MT  without  a  concept  presentation  occurring. 

The  CFD  design  consists  of  levels  as  with  the  Dataflow  Diagram  (DFD).  The  top  level  of  the  CFD  is 
level  1,  the  second  level  is  level  2,  and  so  on.  The  high-level  diagrams  will  have  small  numbers  and  the  low- 
level  diagrams  will  have  large  numbers.  The  higher  levels,  i.e.,  level  1,  contain  general  concept  goals  and 
mastery  tests;  the  low  levels  conuiin  the  specific  concept  goals  and  mastery  tests. 

1.  Concept  Hubble 

The  concept  categories  delineated  in  the  pedagogical  design  phase  translate  into  the  high-level 
bubbles  in  the  CFD.  The  dependency  relation.ships  determined  in  the  pedagogical  design  phase  uanslatc  into 
the  placement  of  the  bubbles  and  the  arrows  between  them  to  indicate  flow  of  the  tutorial  prc.sentation.  The 
contents  of  each  bubble  becomes  more  specific  as  you  move  down  (levels  with  high  numbers)  in  the  CFD, 
until  the  lowest  level  is  reached.  The  concept  goals  within  each  concept  category  of  the  pedagogical  design 
arc  translated  into  the  lowest  level  of  the  CFD.  The  lowest  level  of  the  CFD  pinpoints  tltc  exact  concepts  to 
be  presented  and  the  order  of  prc.sentation.  It  is  acceptable  for  the  lowest  level  concept  order  of  presentation 
to  be  linear. 

There  should  be  no  more  than  9  concepts  per  level,  including  level  1 .  “People  can  deal  with  seven, 
plus  or  minus  two,  chunks  of  information  consciously  and  comfortable.  More  than  nine  chunks  of  information 
can  lead  to  confusion  and  overload.”  (Cleveland,  1986,  p.  18)  If  more  than  9  concepts  per  level  occur,  the 
pedagogical  design  must  be  reviewed  to  determine  if  concept  categories  can  be  combined  at  the  higher  levels 
then  broken  out  at  the  lower  levels.  Each  category  must  contain  closely  related  concepts,  not  just  an  arbitrary 
group  of  concepts.  Therefore,  a  concept  category  may  be  divided  into  subcatcgorics.  The  subcategories  then 
translate  to  intermediate  levels  of  the  CFD  and  the  specific  concepts  are  the  lowest  level  of  the  CFD. 

Each  bubble  is  numbered  as  with  the  DFD.  Numbering  each  bubble  allows  for  relating  a  bubble 
to  the  surrounding  levels  of  Concept-Flow  Diagrams.  The  number  of  each  low-level  CFD  relates  to  the  high- 
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level  CFD  bubbles.  For  example,  bubble  1.1.1  is  a  level  3  diagram  and  the  bubble  is  part  of  bubble  1.1  in  level 
2  and  bubble  1  in  level  1 .  Reversing  the  process,  if  bubble  1  in  level  1  of  the  CFD  is  broken  down,  the  level 
2  bubbles  will  be  numbered  1 . 1 , 1 .2, 1 .3,  etc. 

2.  Mastery  Test  Octagon 

This  is  probably  the  most  difficult  determination  to  be  made  in  the  design  of  the  tutorial.  The 
mastery  tests  determine  the  level  of  comprehension  of  the  user  and  whether  or  not  the  user  is  ready  to  move 
forward  or  backward  in  the  flow  of  the  tutorial.  The  MT  is  therefore  exU'emely  important  in  the  design  of  the 
tutorial. 

Great  care  must  be  taken  in  determining  the  placement  of  the  mastery  tests  and  determining  the 
ta.sks  pre.sentcd  within  each  MT.  This  docs  not  necessarily  mean  that  in  the  higher  level  CFD,  i.e.,  level  1, 
there  must  be  a  MT  given  after  each  concept.  When  designing  POST,  the  first  attempt  at  MT  placement  put 
at  MT  between  each  and  every  bubble.  We  discovered  that  this  is  unnecessary.  A  MT  between  two  bubbles 
is  unnecessary  if  the  flow  to  the  .second  bubble  is  only  dependent  upon  the  previous  bubble.  For  example,  it 
is  unncccssar>'  to  place  a  MT  betvseen  the  Introduction  &  Basic  Definitions  bubble  and  the  Sound 
Characteristics  bubble  in  Figure  3.  The  MT  within  the  Introduction  <£  Basic  Definitions  bubble  is  sufficient 
to  determine  user  comprehension  of  that  concept  categor>'.  Placing  another  MT  between  the  bubbles  would 
only  be  redundant.  It  is  ncccs.sar)’,  however,  to  place  a  MT  after  the  completion  of  the  Sound  Characteristics 
bubble  because  the  user  must  comprehend  both  the  Introduction  &  Basic  Definitions  bubble  and  the  Sound 
Characteristics  bubble  prior  to  surting  either  the  Ray  Path  Transmission  and  Loss  bubble  or  the  Ocean 
Characteristics  bubble. 

There  arc  smaller  mastery  tests  given  within  each  bubble  in  order  to  determine  comprehension  of 
that  particular  concept.  The  mastery  tests  within  a  bubble  address  ’'jxjcific  concepts  within  that  bubble.  At  the 
end  of  the  presentation  of  a  bubble  and  prior  to  flowing  to  the  next  bubble,  there  is  a  MT  to  ensure,  that  the 
user  comprehends  the  concept  category  presented.  Then,  if  a  MT  follows  in  the  flow,  it  tests  comprehension 
of  the  relationship  between  that  bubble  and  any  other  bubbles  already  presented.  For  example,  in  Figure  4, 
the  mastery  tests  within  the  Introduction  <5  Basic  Definitions  bubble  and  the  Sound  Characteristics  bubble 
test  only  their  respective  concepts.  The  MT  given  after  the  Sound  Characteristics  bubble  tests  the 
comprehension  of  the  relationship  between  the  Basic  Definitions  and  the  Sound  Characteristics. 

The  addition  of  the  MT  to  the  diagram  complicates  the  9  bubbles  per  level  rule.  If  the  addition  of 
mastery  tests  clutters  the  diagram,  the  entire  CFD  must  be  readdressed.  It  may  require  that  more  concepts  that 
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arc  related  be  combined  and/or  the  placement  of  mastery  tests  changed.  Mastery  tests  arc  numbered  just  as 
with  the  bubbles. 

3.  Guidelines 

This  aanslation  into  a  CFD  is  by  no  means  the  final  CFD.  The  CFD  must  constantly  be  reviewed 
for  improvement.  The  following  guidelines  and  criteria  must  be  considered: 

1 .  Are  there  more  than  9  bubbles  on  each  level  of  the  CFD?  The  CFD  cannot  look  too  busy  or  cluttered. 
If  there  arc  more  than  this  number  of  bubbles  and  mastery  tests,  take  another  look  at  the  concept 
categories  determined  in  the  pedagogical  design.  Concept  categories  may  need  to  be  combined  or 
reorganized  to  meet  this  criteria.  Divide  the  CFD  into  more  levels  than  planned  or  reevaluate  the  use 
and  placement  of  mastery  tests.  This  only  leads  to  better  modularization  of,  flow  of  and  answer  analysis 
within  the  tutorial. 

2.  Do  the  mastery  tests  serve  as  a  point  of  bottleneck?  A  bottleneck  occurs  when  the  MT  is  testing  too 
broad  and  area  for  comprehension.  If  so,  reconsider  the  mastery  tests  that  arc  needed  in  the  tutorial.  A 
bottleneck  indicates  a  need  for  further  breakdown  of  concept  categories  and  placement  of  mastery  tests 
within  the  tutorial. 

3.  Docs  the  design  allow  backtracking  from  MT  to  MT? 

4.  Docs  the  design  allow  the  user  to  choo.se  between  concept  prc.scntation  or  MT  presentation? 
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III.  CONCEPT-FLOW  DIAGRAM  METHODOLOGY  AS  APPLIED  TO  THE 

PHYSICS  OF  SOUND  TUTORIAL 

The  pedagogical  design  phase  of  the  Physics  of  Sound  Tutorial  (POST)  has  been  completed  as 
discussed  in  the  previous  chapter.  The  concept  categories  and  their  subgoals  arc  now  organized  to  be 
incorporated  into  the  tutorial  by  using  the  Concept-Flow  Diagram  (CFD).  The  following  discussion  applies 
the  CFD  and  the  Dataflow  Diagram  (DFD)  methodologies  to  POST. 

A.  CONCEPT-FLOW  DIAGRAM 

1.  Level  1 

Level  1  of  the  CFD  is  illustrated  in  Figure  5.  At  this  level,  the  CFD  shows  the  general  concept 
categories  introduced  and  when  the  mastery  tests  occur.  The  user  may  enter  at  one  of  two  points:  go  directly 
into  the  MT  or  start  with  the  concept  prc.scniation.  The  bubbles  are  the  concept  categories  determined  during 
the  pedagogical  design  pha.se  (Figure  1).  The  flow  and  MT  placement  correspond  to  the  relationships 
determined  during  the  pedagogical  design  phase  (Figure  4).  The  mastery  tests  visually  break  up  the  tutorial 
into  three  distinct  areas;  bubbles  1  and  2;  bubbles  3  and  4;  and  bubbles  5  and  6.  This  was  not  intentional;  the 
thought  that  went  into  the  pedagogical  design  and  the  final  dependency  relationships  made  this  a  natural  flow. 

The  contents  of  the  Iniroduction  and  Basic  Definitions  bubble  in  Figure  5  are  listed  below.  The 
other  concepts  will  be  implemented  in  the  future  and  therefore,  the  specific  areas  covered  within  each  topic 
arc  not  discussed. 

1.  Buttonology  -  how  the  mou.se  operates  and  how  each  button  that  appears  on  every  screen  operates. 
Buttons  introduced  arc  HELP,  CONTINUE  and  EXIT. 

2.  Source  -  the  definition  of  the  term,  how  represented  in  the  tutorial  and  manipulation  of  the  source  by 
the  user. 

3.  Medium  -  the  definition  of  the  term  and  how  the  medium  affects  the  speed  of  .sound. 

4.  Sound  and  Ray  Path  -  the  definition  of  the  term  and  how  represented  in  the  tutorial. 

5.  Detector  -  the  definition  of  the  term,  how  rcprc.scnicd  in  the  tutorial,  manipulation  of  the  detector  by 
the  user  and  the  effects  on  detection  of  sound  depending  upon  the  relationship  between  the  source  and 
the  detector. 


16 


USER 


fntroductior^ 

& 

Basic  Defs 
(IBD) 

1  / 


/  Sound  \ 

Characteristics' 
,  (SC) 

\  2  y 


USER 


/  Ray  Path 
Transmission 
and  Loss 
(RPTL) 

V  3  y 


!  Ocean  \ 
^Characteristics' 

V  4  / 


RPTL 

& 

OC 

8 


Sound 

Velocity 

Profile 

(SVP) 

5 


Passive 

Sonar 

Equation 

(PSE) 

6 


FIGURE  5:  Concept-Flow  Diagram  Level  1 


2.  Level  2 


Refer  lo  Figure  6.  he  first  attempt  at  designing  the  level  2  diagram  is  illustrated  in  Figure  7.  Notice 
there  is  a  MT  after  each  concept  presentation.  Upon  further  design  and  review  of  the  pedagogical  design,  we 
discovered  that  this  was  unnecessary  for  the  POST.  The  concepts  presented  are  so  basic  that  the  MT  for  each 
concept  would  be  trivial.  A  MT  within  and  between  each  concept  bubble  caused  the  MT  betw'een  each 
concept  bubble  to  be  uivial  and  redundant.  We  decided  that  a  MT  for  concepLs  1.2  thru  1.5  was  much  more 
effective  as  illustrated  in  Figure  7. 

Each  bubble  in  Figure  7  represents  the  presentation  of  each  concept.  Bubbles  1.2  thru  1.5  are  not 
contained  within  one  bubble  because  each  concept  presentation  depends  upon  the  student  understanding  the 
prior  concept  presentation.  Although  there  are  not  explicit  mastery  tests  between  each  bubble,  there  are 
mastery  tests  within  each  bubble.  It  is  the  successful  completion  of  these  mastery  tests  that  determines 
transition  to  the  next  bubble. 

3.  Level  3 

The  original  version  of  the  CFD  level  3  diagram  appears  in  Figure  8.  Notice  that  there  are  no 
mastery  tests.  Upon  reexamination,  we  decided  that  the  Iniroduciion  bubble  needed  to  be  more  explicit  and 
that  mastery  tests  were  needed.  The  inclusion  of  mastery  tests  ensured  that  the  user  had  mastered  the  basic 
ta.sks  of  using  the  mouse  prior  to  starting  the  tutorial.  This  diagram  was  revised.  Figure  9,  to  include  them. 
Mastery  tests  are  not  given  after  the  presentation  of  each  concept  goal  because  the  MT  after  all  of  the  concepts 
at  this  level  have  been  presented  would  be  too  trivial  and  redundant.  The  concepts  themselves  arc  so  basic 
that  one  MT  at  the  end  is  sufficient. 

B.  DATAFLOW  DIAGRAM 

1.  Context  Diagram 

The  context  diagram  represents  the  entire  system.  The  context  diagram  for  POST  is  illustrated  in 
Figure  10.  In  addition  to  the  student  using  the  tutorial,  terminators  arc  inuoduced  representing  an  instructor 
and  the  Ocean  Systems  Qualification  (OQS)  board.  The  insuuctor  and  the  OQS  board  arc  able  to  monitor 
student  progress  and  to  update  the  tutorial  as  needed. 

2.  Level  1 

Level  1  of  the  DFD  is  illustrated  in  Figure  1 1.  A  quick  glance  at  Figurcs5  and  1 1  shows  a  drastic 
difference  in  the  CFD  and  the  DFD.  The  difference  is  due  to  what  each  ar“’ysis  tool  represents.  The  DFD 
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FIGURE  7:  Revised  Concept-Flow  Diagram  Level  2 


represents  the  communication  between  software  suuctures  of  the  system  and  shows  how  the  data  is  passed 
throughout  the  system.  The  CFD  attempts  to  provide  a  visual  aid  to  illusuate  how  the  tutorial  is  to  be 
presented;  i.e.,  the  sequence  of  introduction  of  different  concepts. 

The  terminators  of  the  POST  tutorial  are; 

1.  The  instructor.  The  instructor  is  allowed  to  interact  with  the  tutorial  text  and  test  question  file. 
Interaction  includes  the  instructor  deciding  which  concept  module  the  student  will  use  or  modifying 
the  test  questions  asked  of  the  student.  The  instructor  also  ma)’  keep  track  of  user  mastery  test  (MT) 
results. 
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2.  The  Ocean  System  Qualification  Standard  (OQS)  Board.  The  OQS  Board  may  interact  with  the  system 
by  requesting  and/or  monitoring  MT  results  of  each  user. 


3.  The  user  of  the  tutorial.  The  user  may  request  which  concept  he/she  wishes  to  explore.  If  the  user  must 
quit  the  tutorial,  either  temporarily  as  an  icon  or  for  an  extended  period  of  time,  he/she  may  restart  the 
tutorial  at  the  point  at  which  he/she  quit.  Determination  of  this  point  of  restart  is  through  check  points 
reached  when  the  u.ser  last  u.scd  the  tutorial. 
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OQS  Board 


Bubble  1  of  Figure  1 1  allows  ihe  instruclor  lo  interact  with  the  tutorial  text  and  test  questions  file.  The 
tutorial  presentation  uses  this  file  for  the  text  of  concept  explanations  and  mastery  tests.  For  each  tutorial,  the 
main  process  is  to  present  the  tutorial,  bubble  2.  The  CFD  is  actually  a  more  detailed  design  of  this  bubble.  It 
delineates  exactly  how  to  prc.scnt  the  tutorial,  taking  into  consideration  the  topic  of  the  lesson  plan.  Because 
the  mastery  tests  are  given  within  this  process,  the  insvuctor  and  the  OQS  board  get  the  individual  user 
performance  statistics  from  here.  The  other  process  that  occurs  in  a  tutorial  is  the  restart,  bubble  3.  If  the  user 
exits  the  tutorial  in  the  middle,  the  user  is  brought  back  to  the  concept  where  hc/she  left  off.  The  tutorial  has 
check  points  assigned  after  the  completion  of  a  concept  or  MT.  When  the  user  restarts  the  tutorial,  the  check 
point  file  is  checked  find  the  last  check  point  encountered.  The  tutorial  then  restarts  from  this  check  point. 
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To  illustrate  the  basic  process  flow,  the  only  DFD  level  1  bubble  that  required  further  breakdown  was 
bubble  2,  Present  Concept.  Refer  to  Figure  1 2.  Within  the  presentation  of  the  tutorial,  the  two  major  processes 
that  occur  arc  either  the  presentation  of  a  concept  to  the  user  or  the  presentation  of  a  MT  to  the  user. 

1.  Once  the  concept  presentation  occurs,  a  MT  is  given  to  determine  the  level  of  comprehension  of  the 
user.  Determination  is  made  by  the  maintenance  of  statistics  of  correct  answers  to  the  mastery  tests. 

2.  Once  the  MT  is  given,  a  determination  is  made  by  the  tutorial  as  to  the  level  of  comprehension.  If  the 
user  has  shown  mastery  of  the  concept,  the  tutorial  moves  on  to  the  next  MT  or  concept  module.  If  the 
user  has  shown  a  deficiency,  the  tutorial  moves  to  the  appropriate  concept  presentation  to  help  clear  the 
misunderstanding. 

C.  SUMMARY  OF  CFD  AND  DFD  COMPARISON 

The  CFD  design  mcthodolog)'  presents  a  very  complex  structure  while  the  DFD  presents  a  simple 
structure.  This  is  very  characteristic  of  computer-aided  insauction  (CAl).  CAl  deals  w'ith  the  trying  to  present 
a  w  idc  range  of  concepts  in  an  ordered  manner.  The  CFD  structure  allows  for  the  breaking  up  of  this  task  into 
an  organized  hierarchical  structure. 

The  CFD  allows  for  an  instructor  to  interact  with  the  tutorial  presenuttion  to  modify  task  and  concept 
di.scussion.  This  permits  the  tutorial  to  be  updated  as  the  course  develops.  By  allowing  the  modification  of 
the  tutorial,  the  CFD  structure  must  be  placed  in  an  external  file,  interpreted  by  a  fairly  general  system.  This 
system  is  presented  in  the  next  chapter. 


FIGURE  12:  Dataflow  Diagram  Level  2 


IV.  DESCRIPTION  OF  PROGRAM 


Now  that  the  structure  of  the  Concept-Flow  Diagram  (CFD)  has  been  developed,  it  is  necessary  to 
translate  the  design  into  software.  In  order  to  do  this  translation  in  a  flexible  manner  to  allow  instructors  to 
customize  the  course  materials,  the  CFD  is  translated  into  an  external  file  in  a  special-purpose  language.  This 
language  is  parsed  into  a  data  structure  representation  and  interpreted.  The  following  discussion  presents  the 
grammar  implemented  to  support  the  data  structure  and  a  prototype  of  an  interpreter. 

A.  COMPUTER  SYSTEM 

The  Physics  of  Sound  Tutorial  (POST)  module  is  part  of  the  SPARS  Release  5  system.  The  computer 
hardware  used  for  implementation  was  a  U.  S.  Navy  Standard  Desk-Top  Tactical-Support  Computer  (DTC- 
2)  designed  by  a  major  systems  integration  firm,  C3,  Inc.  The  DTC-2  uses  the  SPARC  4  series 
implementation  of  RISC  computer  arcliilecture.  The  DTC-2  system  includes  an  8  MB  4/1 10  CPU,  a  19"  color 
monitor,  a  color  graphics  plotter,  a  color  graphics  printer,  a  mouse,  and  a  uack  ball.  The  software  used  was 
SUNOS  4.0  and  C  compiler.  The  4/110  UNIX  System  V  Operating  System  includes  SunView,  Open 
Windows  (XI  1/NcWS),  NFS,  Assembler,  and  Real-time  Extensions. 

The  interpreter  was  implemented  using  Sun  Visual/lntegrated  Environment  for  Workstations 
(SunView).  SunView  is  a  tool  that  allows  for  the  implementation  of  graphic-based  applications  running  in 
windows.  Two  types  of  windows  were  used  in  tliis  application:  panels  in  order  to  use  buttons  and  a  canvas  in 
order  to  draw  text  and  graphics.  The  can\  as  may  be  used  as  a  whole  region  or  a  set  of  nine  regions.  A  mouse 
is  u.sed  to  track  location,  to  click  the  set  of  buttons,  and  as  a  graphic  positioning  device.  A  trackball  is  available 
for  use  but  was  not  used  in  the  prototype. 

B.  IMPLEMENTATION  OF  DESIGN  TOOLS 

We  developed  a  data  structure,  a  grammar  and  an  interpreter  in  order  to  implement  the  tutorial  based 
upon  the  pedagogical  design  phase,  structured  analysis  and  CFD  designs.  The  POST  was  implemented  using 
the  grammar  and  data  structures  dc.scribed  below.  Appendices  B  thru  E  contain  the  POST  script,  grammar, 
LEX  and  YACC  files  and  interpreter  respectively.  Appendix  F  contains  a  detailed  explanation  of  the  data 
structure  elements.  In  the  di.scussions  below,  bold  italics  refer  to  elements  of  the  grammar  and  bold  refers  to 
elements  of  the  data  structure. 
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C.  DESCRIPTION  OF  GRAMMAR  AND  DATA  STRUCTURE 

The  grammar  is  based  on  the  CFD  graph  semantics  and  expressed  in  a  BNF  notation.  The  UNIX  tools 
LEX  and  YACC  were  used  to  implement  the  grammar  as  a  parse  for  input  files  describing  the  tutorial.  The 
data  structure  for  a  tutorial  forms  a  cfd_graph.  A  cfd_graph  consists  of  a  cfdjnenu  and  nodes,  called 
cfdjnode.  The  reserved  words  of  the  grammar  are  listed  in  Figure  1 3. 
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FIGURE  13:  Reserved  Words 

/.  Graphic  Definition 

The  user  may  define  the  graphics  or  CFD  states  at  the  highest  syntax  level  of  the  input  file.  The 
graphics  arc  specified  by  identifier  ;=  string.  The  tutorial  script  references  the  graphic  images  by  the 
identifier.  The  string  identifies  a  file  in  which  the  graphic  is  stored.  This  information  is  used  in  the  draw  and 
drag  actions.  Figure  14  shows  the  graphic  image  definitions  used  in  POST  Iniroduciion  and  Basic  Definitions. 

2.  cfdjnode 

Each  node  of  the  CFD  is  represented  as  a  cfd_node  structure  with  a  CFD  node  identification 
number  {cfdjd),  the  action  or  actions  that  i.s/arc  to  occur  at  this  CFD  node,  and  the  possible  response  or 
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detector  :=  “dctector_sym.icon 
mouse_sym  :=  “mousc_syni.icon” 
path  ;=  “path_sym.icon” 
post  :=  “post_syin.icon” 
source  ;=  “sourcc_sym.icon” 

FIGURE  14:  Graphic  Definition  Example 

responses  expected  at  this  point  in  the  tutorial.  An  example  of  the  grammar  of  a  typical  cfdjnode  appears  in 
Figure  15. 

(st_l_l_l,  ( (0,  clear), 

(1,  draw,  post@(mouscX,  mouscY)), 

(2,  write,  “Welcome  to  the  Physics  of  Sound  Tutorial’'), 

(5,  w'ritc,  “Upon  completion  of  this  tutorial,  you  will  have  enough  of  an  understanding  to 
complete  the  Physics  of  Sound  module  of  your  OQS”), 

(8,  write,  “Let’s  begin  . . .’’), 

(0,  pau.se,  15) ), 
si_l_l_5) 

FIGURE  15:  Example  of  a  State 

a.  actionjist 

The  action  list  specifies  the  actions  that  arc  to  occur  while  in  a  state.  The  action  list  identifies 
where  in  the  window  to  accept  input,  to  draw  graphic  images  and  where  to  display  the  text  of  the  tutorial.  The 
actlist  of  the  cfdnode  in  the  data  structure  represents  the  action  list  elements  as  a  linked  list  data  structure  of 
actnode.  The  actnode  identifies  the  region  of  the  window'  in  which  the  action  is  to  occur,  the  specific  action 
to  lake,  and  the  arguments  to  that  action. 
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(1)  region  Jd  -  The  screen  window  is  broken  into  10  distinct  regions.  By  breaking  the 
window  into  distinct  regions,  different  actions  arc  allowed  to  take  place  in  the  different  regions  of  the 
window.  This  allows  the  tutorial  to  simultaneously  display  graphics  and  text.  In  Figure  1 5,  the  “0”  in  (0,  clear) 
refers  to  region  0,  the  “8”  in  (8,  write,  “Let’s  begin  . . .”)  refers  to  region  8. 

(2)  draw  -  This  terminal  enables  the  tutorial  to  display  a  graphic  in  the  window  to  enhance 
the  presentation  of  the  tutorial.  The  “draw"  action  must  be  followed  by  an  identifier  specifying  the  graphic 
to  be  displayed  and  the  location.  The  location  is  given  using  a  set  of  coordinates;  cither  the  current  location 
of  the  mouse,  {mouseX,  mouseY),  or  the  location  of  a  graphic  currently  displayed,  (identifierx,  identifier. y). 
In  Figure  15,  (I,  draw,  post@(mouscX.  mouse Y))  says  to  draw  the  post  icon  in  region  1  at  the  current  location 
of  the  mou.se. 

(3)  clear  -  This  feature  allows  the  erasure  from  portions  of  the  window  text  and/or  graphics 
that  arc  not  relevant  to  the  current  state  of  the  tutorial  presentation.  The  location  is  identified  as  in  the  “draw" 
action.  In  Figure  15,  (0,  clear)  says  to  clear  region  0. 

(4)  write  -  This  is  the  means  by  which  text  is  displayed  in  the  window.  In  Figure  15,  (2, 
write,  “Welcome  to  the  Physics  of  Sound  T  utorial”)  .says  to  write  the  sbing  “Welcome  to  the  Physics  of  Sound 
Tutorial”  in  region  2. 

(5)  input  -  Restricts  tlic  area  of  the  window  where  the  user  may  input  text  and/or  manipulate 
graphics.  Restricting  the  input  area  to  a  region  within  the  window  prevents  the  user  from  arbitrarily  writing 
text  or  moving  graphics  around  the  w  indow  and  thus  interrupting  the  tutorial  pre.scntation.  Input  is  either 
mouse,  keyboard  or  mouse&key.  In  Figure  16,  (0,  input,  mou.se)  says  to  allow  input  via  the  mouse  in  region 
0  and  (9,  input,  keyboard)  says  to  allow  keyboard  input  in  region  9. 

(6)  pause  -  Limits  the  amount  of  time  that  an  action  is  displayed  to  the  user  before  moving 
on  to  the  next  action  or  state.  An  example  is  to  display  text  in  the  window,  allow  a  sufficient  amount  of  time 
for  the  display  to  be  read,  and  then  move  on  to  the  next  state.  In  Figure  15,  (0,  pause,  15)  says  to  set  the  timer 
for  15  seconds  and  have  region  0  in  the  wait  state. 

(7)  drag  -  Allows  the  user  to  drag  a  graphic  using  the  mouse.  The  drag  feature  may  be 
incorporated  into  the  mastery  tests  to  increase  the  complexity  of  the  tasks. 

(8)  quit  -  This  feature  is  u.sed  to  quit  the  tutorial  upon  execution  of  the  last  state  of  the 
tutorial.  If  MT  performance  and  answer  analysis  indicate  that  the  u.scr  is  not  gra.sping  a  concept,  the  tutorial 
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(st_l_l_50,  ( (7,  write,  “Don’t  be  afraid  to  try  pressing  a  button  on  the  mouse.”), 
(0,  input,  mouse), 

(9,  input,  keyboard) ), 

(  (15  seconds  &  (past  st_l_l_50  wait_wait),  si_l_l_55), 

(15  seconds  &  (past  st_l_l_10  wait),  (assert,  wait_wait),  st_l_l_50), 

(click-left,  (assert,  left),  st_l_l_15), 

(click-middle  &  (past  st_l_l_40  2X_w'rong),  si_l_l_45), 

(click-middle  &  (past  st_l_l_35  wrong_ans),  st_l_l_40), 

(click-middle,  (assert,  mid),  st_l_l_35), 

(click-right  &  (past  st_l_l_40  2X_wrong),  st_l_l_45), 

(click-right  &  (past  st_l_l_35  wrong_ans),  st_l_l_40), 

(click-right,  (assert,  mid),  st_l_l_35), 

(  (“Help”  I  “I  do  not  know)  &  (past  sl_l_l_l()  help),  st_l_l_45). 

((“Help”  I  “I  do  not  kr  ow),  (assert,  help),  st_1_l_65), 

((past  st_l_l_10  wrong_ans  &  pa.st  si_l_l_35  wrong_ans),  st_l_l_45), 

((a.ssert,  wrong_ans),  st_l_l_35) ) ) 


FKiL'RK  16:  input  and  responsejist  Example 


terminates  the  presentation  and  directs  the  user  to  get  a.s.sistancc  from  the  instructor.  This  terminal  is  not  the 
same  as  the  EXIT  button.  The  EXIT  button  is  used  by  the  user  to  request  tutorial  termination.  In  Figure  17, 
quit  is  used  to  stop  the  tutorial  to  allow  the  user  to  get  assistance  from  a  human. 

b.  responsejist 

The  response  list  evaluates  the  user  response,  performs  answer  analysis,  and  provides  the 
user  with  feedback.  The  respon.se  list  was  designed  such  that  the  tutorial  can  identify  the  user  response  and 
the  state  to  flow  to  based  upon  the  response  and  answer  analysis. 

The  respon.se  list  is  a  list  of  all  of  the  possible  responses  to  the  action(s)  in  the  actionjist. 
The  structure  of  the  response  list  must  identify  the  response  and  the  next  state  {cfdjd)  to  go  to  based  on  this 
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response.  The  response  list  is  order  dcpcndeni;  ihcreforc,  the  first  response  in  the  list  that  matches  the 
response  of  the  user  is  executed.  The  response  list  was  implemented  with  a  linked  list  called  resnode. 


(1)  click-left,  click-middle,  click  right,  click-any  -  Refers  to  the  respective  button  on  the 
mouse.  The  click  of  a  mouse  button  is  a  response  event  from  the  user.  This  terminal  allows  the  response  list 
to  evaluate  the  respective  response  in  the  response  list.  In  Figure  16,  the  “click-left”  in  (click-left,  (assert,  left). 


st_l_l_15)  asks  if  the  response  event  was  a  click  of  the  left  mouse  button. 


(2)  click-help,  click-continue  or  click-exit  -  Refers  to  the  buttons  located  in  the  panel  across 
the  top  of  the  window.  The  HELP  button  is  on-line  help  provided  to  the  user.  The  CONTINUE  button  is  an 
accept  action  that  directs  the  tutorial  to  move  on  to  the  next  state  in  the  tutorial  flow.  The  EXIT  button  quits 
the  tutorial.  Thc,sc  buttons  arc  always  present  in  the  window  and  arc  global  to  the  tutorial  allowing  the  user 
to  choose  one  of  these  options  at  any  time. 


(3)  mouse-move  -  Notifies  the  response  list  that  the  cursor  is  being  moved  using  the  mouse. 
This  feature  was  not  used  in  the  POST. 


(4)  integer  "seconds”  -  Limits  the  length  of  time  that  a  user  may  take  to  give  a  response. 
This  feature  prevents  the  tutorial  and  the  user  from  getting  into  a  dead  lock  state;  the  user  docs  not  know  the 
proper  response  and  therefore  is  not  giving  any  response  and  the  tutorial  is  waiting  for  a  response  before 
moving  on  to  the  next  state.  In  Figure  16,  “15  seconds”  in  (15  seconds  &  (past  st_l_l_50  wait_wait), 
sl_l_l_55)  states  to  set  the  timer  for  15  seconds  and  wait  that  long  for  a  rcspon.se  event.  If  a  response  event 
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is  not  received  in  dial  lime  period,  go  to  state  sl_l_l_55.  Remember,  st_l_l_55  represents  state  55  of  concept 
bubble  or  MT  1.1. 

(5)  arithmetic  operators  -  The  u.se  of  the  arithmetic  operators  allows  for  the  interpretation  of 
where  a  graphic  has  been  placed  within  a  region.  This  includes  the  use  of  the  terminals  halfht  and  halfwid  to 
assist  in  centering  a  graphic  in  a  region  of  the  window. 

c.  Use  of  assert  and  past 

In  order  to  determine  which  state  to  go  to  next,  answer  analysis  must  occur.  This  involves 
reviewing  answers  given  to  past  questions  or  tasks.  Therefore,  the  MT  should  respond  to  a  response 
differently  based  on  a  history  of  performance  in  the  tutorial,  assert  is  a  list  that  maintains  all  of  the  states 
traversed  and  the  user  response  for  that  state.  However,  the  list  docs  not  imply  path  traversal,  past  verifies  the 
assert  list  to  check  if  a  state  and  specified  response  have  occurred  in  that  state.  The  past  feature  is  very  useful 
for  answer  analysis.  The  choice  of  the  next  state  to  go  to  can  then  be  based  on  the  current  response  and 
previous  responses  made  at  specific  states.  This  feature  is  also  very  useful  for  distinguishing  state  traversal 
for  the  expert  versus  the  novice  user.  The  novice  user  will  make  mistakes.  Thepos/  feature  allows  for  finding 
patterns  in  the  types  of  wrong  answers  made  and  more  importantly,  ensures  that  the  flow  of  the  tutorial 
presentation  is  to  a  state  that  will  provide  assistance  for  correcting  the  paiicrn  of  wrong  answers. 

With  the  introduction  of  the  past  feature,  the  order  of  the  response  list  affects  the  decision 
logic.  For  example,  assume  state  si_l_l_l()  has  been  tfaversed  and  si_l_l_l()/waii  exists  in  the  assert  list. 
ALSO,  assume  the  response  event  is  a  click  of  the  left  mouse  button.  The  evaluation  of  the  rcsjwnsc  list  in 
Figure  18  will  always  evaluate  the  first  response  and  never  evaluate  the  second  response.  The  first  response 

(click-left  &  (past  st_l_l_I()  wail),  (assert,  wail_waii),  sl_l_l_7()) 

(click-left  &  (past  si_l_I_7()  wait_wail),  si_]_l_55) 

FKIURE  18:  Sample  Response  List 

will  check  the  assert  list  to  verify  that  si_l_l_10  has  been  traversed  with  the  rc.sponsc  wail.  Since  the  response 
li.si  is  order  dependent,  this  will  always  be  true  and  the  rcspon.se  will  lead  to  an  infinite  loop.  The  evaluation 
of  the  response  list  in  Figure  19,  on  the  other  hand,  will  evaluate  the  second  response  the  first  lime  the 
rc.sponsc  list  is  encountered.  The  first  time  that  stale  si_l_l_70  is  traversed,  only  “si_l_l_lO  wait”  is  in  the 
assert  li.st;  therefore,  “si_l_l_70  waii_waii”  will  not  be  found  and  the  second  response  w  ill  be  evaluated.  The 


(click-left  &  (past  st_l_l_70  wait_wait),  st_l_l_55) 

(click-left  &  (past  st_l_l_10  wait),  (assert,  wait_wait),  sl_l_l_70) 

FIGURE  19:  Revised  Sample  Response  List 

second  time  that  state  st_l_l_70  is  traversed,  both  “st_l_l_10  wait”  and  “st_l_l_70  wait_wait”  will  be  in 
the  assert  list.  When  the  first  response  is  evaluated,  the  response  will  be  true  and  traversal  will  continue  to 
another  state.  The  terminals  used  to  represent  this  data  structure  in  the  grammar  are; 

(1)  past  -  Specify  state  and  response  given  in  that  state.  Response  given  cannot  be  a  reserved 
word.  Refer  to  Figure  13  for  a  listing  of  the  reserved  words.  Refer  to  Figures  16, 18  and  19  for  examples. 

(2)  assert  -  Specify  response  given  which  cannot  be  a  reserved  word.  Refer  to  Figures  16, 
18  and  19  for  examples. 

3.  crd_m«nu 

This  non-terminal  and  data  structure  element  allows  the  tutorial  to  individualize  the  presentation 
by  allowing  the  user  to  specify  the  point  in  the  tutorial  he/shc  wishes  to  start.  If  the  user  chooses  a  start  point 
that  is  too  advanced,  the  MT  for  that  start  point  will  identify  this  and  backtrack  until  a  point  of  comprehension 
is  found.  The  interpreter  of  the  tutorial  .script  generates  the  window  title  of  the  specific  tutorial  in  the  main 
frame  and  the  start  points  within  the  cfd_graph  for  the  specific  tutorial. 

In  the  POST,  the  grammar  for  the  menu  appears  in  Figure  20.  The  main  window  will  feature  the 
string  of  the  title  “PHYSICS  OF  SOUND  TUTORIAL”  and  the  menulist  consists  of  the  title  of  the  seven  (7) 
choices  to  appear  in  the  main  menu  and  their  respective  state  identifiers.  The  choices  in  the  main  menu  will 
be  labelled  starting  with  the  string  “Introduction”  and  ending  with  the  string  “Overall  Test.” 

D.  DESCRIPTION  OF  INTERPRETER 

An  interpreter  was  designed  to  implement  a  prototype  of  the  POST.  The  interpreter  allows  for  the  use 
of  any  tutorial  written  in  the  grammar  described  in  this  thesis.  A  listing  of  the  interpreter  is  found  in  Appendix 

E. 

Prior  to  interpreting  the  grammar,  the  grammar  must  first  be  parsed.  The  parse  input  is  then  used  to 
initialize  the  tutorial  window.  The  initial  frame  presents  the  user  with  the  options  for  an  initial  start  state.  Once 
the  initial  start  state  is  cho.sen,  the  actions  of  that  start  state  arc  presented  in  the  canvas  of  the  base  frame.  The 
event  handling  procedures  of  SunView  then  accept  a  response  from  the  user  to  be  interpreted  via  the  input 


34 


handler  for  the  canvas.  The  next  stale  is  chosen  and  executed  based  on  the  interpretation  of  response  options 
for  the  current  state.  The  sequence  for  presenting  a  state  is  the  same:  present  the  actions,  alloA-  SunView  to 
accept  the  response,  interpret  the  rcspon.se  and  then  go  to  the  next  state.  At  anytime  during  the  execution  of 
the  tutorial,  the  user  has  the  option  of  exiling  the  tutorial. 

1.  Present  Actions 

The  process  of  presenting  the  actions  of  a  stale  is  first  to  determine  the  region  that  the  action  is  to 
occur.  Once  the  region  is  determined,  the  action  is  then  executed  within  that  region  as  described  previously. 
If  the  action  list  consists  of  more  than  one  action,  each  action  in  the  action  list  is  executed. 

2.  Interpret  Response 

The  response  is  first  interpreted  by  Sunview  event  handling  procedures  to  determine  exactly  what 
the  response  was.  Then,  the  corresponding  response  is  found  in  the  response  list.  If  the  next  stale  to  go  to  relies 
on  past  answer  history,  the  assert  list  is  included  in  the  response  evaluation.  Once  the  appropriate  response 
and  past  history  have  been  found  in  the  response  list,  the  next  state  is  executed.  If  no  match  with  the  response 
list  is  identified,  the  software  remains  in  the  same  state  and  wails  for  further  input.  However,  most  stales  will 


35 


specify  a  ddault  transition  to  be  taken  in  such  a  case.  i.  e..  users  will  not  be  l^t  “strandetT  at  some  point  in 
the  tutorial. 


V.  CONCLUSION  AND  FUTURE  RESEARCH 


A.  SUMMARY  OF  CONTRIBUTIONS 

A  Concept-Flow  Diagram  (CFD)  is  a  representation  of  the  information  presented  in  a  computer-aided 
tutorial.  The  CFD  highlights  the  concepts  that  arc  prerequisites  to  the  presentation  of  other  concepts  and 
identifies  where  verification  of  mastery  is  to  be  performed  within  the  tutorial.  A  visualization  of  this 
information,  as  provided  with  the  CFD,  has  two  key  benefits. 

First,  the  CFD  provides  a  functional  basis  for  the  design  of  tutorials.  The  designers  of  the  computer- 
aided  tutorial  arc  provided  with  a  tool  that  assists  in  the  design  of  the  presentation  of  the  tutorial.  The  CFD 
allows  for  a  hierarchical  presentation  of  the  tutorial,  forward  and  backward  presentation-flow,  and  answer 
analysis  that  is  history  sensitive.  Designers  are  also  presented  with  a  tool  whose  symbology  is  somewhat 
familiar  and  therefore  immediately  imjilcmentablc.  By  using  the  CFD  design  methodology,  the  designers  arc 
able  to  sec  the  presentation  flow  prior  to  any  programming  or  coding. 

Second,  the  CFD  provides  a  basis  for  evaluation  of  tutorial  presentation.  By  using  the  CFD 
methodology,  the  designers  arc  forced  to  take  a  closer  look  at  the  presentation  flow  of  the  concept  goals.  The 
CFD  can  identify  areas  where  the  presentation  is  presenting  too  much  information.  It  can  aLso  help  to  identify 
where  the  ideal  place  within  a  presentation  occurs  to  tc.st  the  user  for  comprehension.  The  CFD  strongly 
encourages  non-linear  dependency  rather  than  an  explicit  ordering  to  the  concept-flow  of  the  tutorial 
presentation. 

By  highlighting  the  flow  of  presentation  as  a  basis  for  software  design,  the  CFD  enables  more  realistic 
engineering  of  computer-based  tutorials.  Automated  sU'ategics,  such  as  the  CFD  interpreter  described  in  this 
thesis,  arc  supported  by  this  design  technique.  In  summary,  the  introduction  of  the  CFD  shifts  the  emphasis 
of  computer-aided  insuaclion  design  from  modelling  of  student  behavior  to  design  of  presentation  and 
knowledge  verification. 

B.  RECOMMENDATIONS  FOR  USE 

Concept-Flow  Diagrams  allow  die  design  of  tutorials  to  take  place  in  a  specific  context  of  assumed  and 
demonstrated  knowledge.  The  CFD  methodology  is  immediately  useful  in  tutorials  for  students  with 
heterogeneous  backgrounds.  The  CFD  docs  not  rely  on  the  users  to  have  some  common  know  ledge  base  in 


order  to  use  the  tutorial.  Therefore,  the  tutorial  can  be  directed  at  a  more  generic  audience,  from  the  novice 
to  the  expert,  without  over-challenging  or  boring  the  user.  The  use  of  this  methodology  would  greatly  enhance 
the  tutorials  used  in  organizations,  such  as  the  U.  S.  Navy  or  the  Department  of  Defense,  where  the  personnel 
who  attend  their  schools  range  from  the  recent  high  school  graduate  to  individuals  with  advanced  degrees  and/ 
or  experience. 

Concept-Flow  Diagrams  are  also  useful  in  providing  information  on  how  to  use  interactive  software 
with  complex  user  interfaces.  The  users  of  on-line  help  within  a  software  package,  such  as  an  editor  or  word 
processor,  are  usually  presented  with  detailed  information  about  the  item  requested.  The  use  of  Concept-Bow 
Diagrams  would  allow  the  user  the  option  of  a  detailed  explanation  or  a  quick  review,  pleasing  both  the 
novice  user  and  the  expert  user  of  the  system  who  may  have  just  forgotten  how  a  function  operates.  The  CFD 
also  can  place  the  help  provided  in  the  context  of  recent  commands  through  the  use  of  the  answer  analysis 
assert  and  past  non-terminals. 

C.  RECOMMENDATIONS  FOR  FUTURE  RESEARCH 

This  thesis  concentrated  on  the  design  methodology  of  the  presentation  -flow  and  representation  in  a 
CFD.  An  extension  of  this  discussion  led  to  answer  analysis.  A  more  concentrated  effort  in  the  area  of  answer 
analysis  is  well-deserved.  This  includes  more  formally  describing  mastery  test  flow  and  usage. 

In  order  to  build  tools  to  generate  and  evaluate  Concept-Flow  Diagrams,  formal  semantics  and  code 
generation  are  needed.  Therefore,  two  areas  recommended  for  future  research  arc  establishing  the  formal 
semantics  of  Concept-Flow  Diagrams  and  building  tools  to  generate  code  from  Concept-Bow  Diagrams. 

This  leads  to  actually  building  the  tools  to  generate  and  evaluate  Concept-Flow  Diagrams.  The  tool  or 
tools  could  verify  such  things  as  too  many  bubbles  per  level,  points  of  entty  exist  via  both  the  MT  and  concept 
presentation,  and  that  flow  is  possible,  both  forward  and  backward,  from  MT  to  MT  or  bubble  to  bubble. 

In  order  to  enhance  the  tutorial  presentation,  the  CFD  language  can  be  extended  to  provide  vector 
graphics  capability  and  animation  capability.  Currently,  the  tutorial  designers  arc  restticted  to  stationary 
icons.  The  extended  capabilities  would  allow  for  using  moving  objects  in  a  task  or  presentation. 

The  last  recommendation  is  the  transformation  from  prototype  to  working  interpreter.  The  interpreter 
designed  is  a  partially  functional  prototj-pc.  Completion  of  the  prototype  and  implementation  as  a  production 
model  are  necessary. 
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APPENDIX  A 


LIST  OF  CONCEPT  GOALS  FOR 
THE  PHYSICS  OF  SOUND  TUTORIAL 


1.  Introduction  and  Basic  Definitions 

a.  Butlonology 

b.  Source 

c.  Medium 

d.  Sound  and  Ray  Path 

e.  Detector 

2.  Sound  Characteristics 

a.  Frequency 

b.  Hertz 

c.  Period 

d.  Compression 

e.  Rarefaction 

f.  Longitudinal  wave 

g.  Amplitude 

h.  Effective  Pressure  Amplitude 

i.  Wavelength 

j.  Wavefront 

k.  Absolute  Sound  Pressure  Level  (ABS  SPL) 

l.  Decibel 

m.  Broadband 

n.  Tonals 

3.  Ray  Path  Transmission  and  Loss 

a.  Direct  Path 

b.  Reflected  Path 

c.  Refracted  Path 

d.  Refracted  Surface  Reflected  Path  (RSR) 

e.  Limiting  Ray 

f.  Shadow  Zones 

g.  Attenuation 

h.  Scattering 

i.  Spreading/Divergence 

j.  Spherical  Spreading 

k.  Cylindrical  Spreading 

l.  Multipath  Propagation 

m.  Critical  Angle 


4.  Ocean  Characteristics 

a.  Bathymetry 

b.  Gradients 

c.  Isothermal 

d.  Gradient 

e.  Thermocline 

f.  Sound  Channel 

g.  Deep  Sound  Channel  PSC) 

h.  Surface  Ducts 

i.  Bottom  Bounce 

j.  Mixed  Layer 

k.  Convergence  Zones 

l.  Reliable  Acoustic  Path 

m.  Noise 

n.  Hydrodynamic  Noise 

o.  Biological  Noise 

p.  Seismic  Noise 

q.  Ocean  Traffic  Noise 

r.  Sea  Surface  Noise 

5.  Passive  Sonar  Equation 

a.  Transmission  Loss  (TL) 

b.  Source  Level  (SL) 

c.  Noise  Level  (NL)  -  ambient  noise,  platfomi  noise 

d.  Array  Gain  (AG) 

e.  Recognition  Differential  (RD) 

f.  Figure  of  Merit  (FOM) 

g.  Signal  Excess  (SE) 

6.  Sound  Velocity  Profile  (SVP) 

a.  Temperature 

b.  Pressure 

c.  Salinity 

d.  Deep  Sound  Channel  Axis 

e.  Noise  Specuum  Level 

f.  Bandwidth 

g.  Doppler 

h.  Echo  Level 
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APPENDIX  B 


PHYSICS  OF  SOUND  TUTORIAL  SCRIPT 


/*  AS  OF  17  JAN  92,  1430  */ 

(menu  "PHYSICS  OF  SOUND  TUTORIAL" 
"Introduction"  ->  st_l_l_l, 

"Source"  ->  st_l_2_l, 

"Medium"  ->  st_l_3_l, 

"Sound"  ->  st_l_4_l, 

"Detector"  ->  st_l_5_l, 

"Intro  Test" ->  st_l_10_l, 

"Overall  Test"  ->  st_7_l) 

detector  :=  "detector_sym.icon" 

mouse_sym  :=  "mouse_sym.icon" 

path  :=  "path_sym.icon" 

post  :=  "post_sym.icon" 


source  :=  "source_sym.icon" 

/**********************  BUTTONOLOGY  1  1  *************************/ 


introduction  111  ***********************/ 


(st_l_l_l,  ( (0,  clear),  (1,  draw,  post@(mouseX,mouseY)), 

(2,  write,  "Welcome  to  the  Physics  of  Sound  tutorial"), 

(5,  write,  "Upon  completion  of  this  tutorial,  you  will  have  enough  of  an  understanding 
to  complete  the  Physics  of  Sound  module  of  your  OQS"), 

(8,  write,  "Let's  begin  . . ."),  (0,  pause,  15) ), 
st_l_l_5 ) 
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^I|ii|c4i)|ii|t:|ii|ii|t4>i|ci|c*4ci|ci|c)|ci|>i|c4i*i|ei|cii(i|ii|c  BUTTONS  112  ******************/ 


(st_l_l_5,  ( (0,  clear), 

(1,  draw,  iiiouse_sym@(mouseX,  mouseY)), 

(3,  write,  "In  order  for  you  to  interact  with  the  computer,  you  must  be  familiar  with  the 
keyboard  and  the  mouse.  It  is  assumed  that  you  are  already  somewhat  familiar  with  the 
keyboard  since  you  logged  onto  the  system"), 

(4,  write,  "Notice  the  figure  in  the  upper  lefthand  comer  of  the  screen.  This  is  called  the 
MOUSE.  There  should  be  one  hooked  up  to  your  terminal."), 

(5,  write,  "There  are  3  buttons  on  the  top  of  the  MOUSE,  each  one  performing  a  different 
function."),  (0,  pause,  10) ), 
st_l_l_10 ) 

(st_l_l_10,  ( (3,  clear), 

(4,  clear), 

(5,  clear), 

(3,  write,  "The  LEFT  button  performs  an  ACTION  when  clicked  once."), 

(7,  write,  "Click  the  LEFT  button  on  the  MOUSE  once  when  you  are  ready  to  continue."), 
(0,  input,  mouse),  /*  allow  input  with  mouse  */ 

(9,  input,  keyboard) ),  /*  allow  input  with  keyboard  only  in  */ 

/*  region  9  */ 

( (click-left,  (assen,  left),  st_l_l_15), 

(click-middle  &  (past  st_l_l_40  2X_wrong),  st_l_l_45), 

(click-middle  &  (past  st_l_l_35  wrong_ans),  st_l_l_40), 

(click-middle,  (assert,  mid),  st_l_l_35), 

(click-right  &  (past  st_l_l_40  2X_wrong),  st_l_l_45), 

(click-right  &  (past  st_l_l_35  wrong_ans),  st_l_l_40), 

(click-right,  (assert,  right),  st_l_l_35), 

(15  seconds,  (assert,  wait),  st_l_l_50), 

(("Help"  I  "I  do  not  know")  &  (past  st_l_l_10  help),  st_l_l_45), 

("Help"  I  "I  do  not  know",  (assen,  help),  st_l_l_65), 

((past  st_l_l_10  wrong_ans)  &  (past  si_l_l_35  wrong_ans),  st_l_l_45), 

(assert,  wrong_ans),  st_l_l_35  ) ) 

(st_l_l_15,  ( (3,  clear),  (7,  clear),  (9,  clear), 

(5,  write,  "Very  good.  That  is  the  correct  button.") ), 
st_l_l_20) 
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(st_l_l_20,  ( (5,  clear), 

(3,  write,  "At  this  time,  the  MIDDLE  and  RIGHT  mouse  buttons  have  no  function. 
Therefore,  you  will  not  have  to  use  them."), 

(7,  write,  "Click  the  LEFT  mouse  button  when  you  are  ready  to  continue."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (click-left,  (assert,  left),  st_l_l_25), 

(click-middle  &  (past  st_l_l_40  2X_wrong),  st_l_l_45), 

(click-middle  &  (past  st_l_l_35  wrong_ans),  st_l_l_40), 

(click-middle,  (assert,  mid),  st_l_l_35), 

(click-right  &  (past  st_l_l_40  2X_wrong),  st_l_l_45), 

(click-right  &  (past  st_l_l_35  wrong_ans),  st_l_l_40), 

(click-right,  (assert,  right),  st_l_l_35), 

(15  seconds,  (assert,  wait),  st_l_l_80), 

(("Help"  I  "I  do  not  know")  &  (past  st_l_l_20  help),  st_l_l_45), 

("Help"  I  "I  do  not  know",  (assen,  help),  st_l_l_40), 

((past  st_l_l_20  wrong_ans)  &  (past  st_l_l_35  wrong_ans),  st_l_l_45), 

(assert,  wrong_ans),  st_l_l_35) ) 

(st_l_l_25,  ( (3,  clear),  (7,  clear), 

(3,  write,  "The  position  of  the  cureor  on  the  screen  can  be  changed  by  moving  the 
MOUSE  on  the  pad."), 

(4,  write,  "Try  moving  the  cursor  to  different  positions  on  the  screen  using  the  mouse."), 
(7,  write,  "Once  you  are  comfortable  with  moving  the  cursor,  position  the  cursor  over  the 
CONTINUE  button  at  the  top  of  the  screen  and  click  the  left  mouse  button  once."), 

(0,  input,  mouse), 

(9,  input,  keyboard)  ), 

( (mouse-move,  st_l_l_30), 

(click-continue  &  (past  st_l_5_30  wrong_ans),  st_l_5_l), 

(click-continue  &  (past  st_l_2_30  wrong_ans),  st_l_2_5), 

(click-continue  &  ((past  st_l_6_25  help)  I  (past  st_l_6_25  wrong_ans)), 

(assen,  continue),  st_l_6_l), 

(click-continue  &  ((past  st_l_6_5  help)  I  (past  st_l_6_5  wrong_ans)), 

(assen,  continue),  st_l_6_l), 

(click-continue  &  ((past  st_l_6_l  help)  I  (past  st_l_6_l  wrong_ans)), 

(assen,  continue),  st_l_6_l), 

(click-continue,  (assen,  continue),  st_l_l_l  10), 

(15  seconds,  (assen,  wait),  st_l_l_70), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_75), 

(assen,  wrong_ans),  st_l_l_75)) 


(st_l_l_30,  ( (3,  clear),  (4,  clear),  (7,  clear),  (9,clear), 

(4,  write,  "Good.  Try  moving  the  position  of  the  cursor  using  the  mouse  again."), 

(7,  write,  "When  you  are  comfortable  with  moving  the  cursor,  move  the  cursor  to  the 
CONTINUE  button  at  the  top  of  the  screen  and  click  the  LEFT  mouse  button  once."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (mouse-move,  st_l_l_30), 

(click-continue,  (assert,  continue),  st_l_l_l  10), 

(5  seconds,  (assert,  wait),  st_l_l_85), 

("Help"  I  "I  do  not  know"  I  "How",  (assert,  help),  st_l_l_75), 

(assert,  wrong_ans),  st_l_l_75) ) 

(st_l_l_35,  ( (3,  clear),  (5,  clear),  (9,clear), 

(3,  write,  "That  is  not  the  correct  button.  Try  again.") ), 

( ((past  st_l_l_10  mid  I  past  st_l_l_10  right  1  past  st_l_l_10  wrong_ans), 

(assen,  wrong_ans),  st_l_l_10), 

((past  st_l_l_20  mid  I  past  st_l_l_20  right  1  past  st_l_l_20  wrong_ans), 

(assert,  wrong_ans),  st_l_l_20), 

((past  st_l_l_20  wrong_ans),  (assert,  wrong_ans),  st_l_l_20) ) ) 

(st_l_l_40,  ( (3,  clear),  (5,  clear),  (9,  clear), 

(3,  write,  "Remember,  the  MIDDLE  and  RIGHT  buttons  on  the  mouse  DO  NOT  perform 
any  function.  Therefore,  click  the  LEFT  button  on  the  mouse  once  to  perform  an 
ACTION."), 

(7,  write,  "Try  the  exerise  again.") ), 

( ((past  st_l_l_10  mid  I  past  st_l_l_10  right)  &  (past  st_l_l_35  wrong_ans), 

(assert,  2X_wrong),  st_l_l_10), 

((past  st_l_l_20  mid  I  past  st_l_l_20  right)  &  (past  st_l_l_35  wrong_ans), 

(assert,  2X_wrong),  st_l_l_20), 

((past  st_l_l_20  help),  st_l_l_20) ) ) 

(st_l_l_45,  ( (3,  clear),  (5,  clear), 

(3,  write,  "You  seem  to  be  having  trouble."), 

(4,  write,  "Before  progressing  any  further,  get  assistance  from  your  instructor."),  (0,  quit) 
),  st_l_l_45) 
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(st_l_l_50,  ( (7,  write,  "Don't  be  afraid  to  try  pressing  a  button  on  the  mouse."), 
(0,  input,  mouse), 

(9,  input,  keyboard)  ), 

( (15  seconds  &  (past  st_l_l_50  wait_wait),  st_l_l_55), 

(15  seconds  &  (past  st_l_l_10  wait),  (assert,  wait_wait),  st_l_l_50), 
(click-left,  (assert,  left),  st_l_l_15), 

(click-middle  &  (past  st_l_l_40  2X_wrong),  st_l_l_45), 

(click-middle  &  (past  st_l_l_35  wrong_ans),  st_l_l_40), 

(click-middle,  (assert,  mid),  st_l_l_35), 

(click-right  &  (past  st_l_l_40  2X_wrong),  st_l_l_45), 

(click-right  &  (past  st_l_l_35  wrong_ans),  st_l_l_40), 

(click-right,  (assert,  right),  st_l_l_35), 

(("Help"  I  "I  do  not  know")  &  (past  st_l_l_10  help),  st_l_l_45), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_65), 

((past  st_l_l_10  wrong_ans  &  past  st_l_l_35  wrong_ans),  st_l_l_45), 
(assert,  wrong_ans),  st_l_l_35  ) ) 

(st_l_l_55,  ( (0,  clear), 

(5,  write,  "You  have  not  taken  action."), 

(8,  write,  "Do  you  want  help?"), 

(9,  input,  keyboard) ), 

(("Yes"  I  "YES"  I  "yes"  I  "Y"  I  "y",  (assert,  help),  st_l_l_45), 

("No"  I  "NO"  I  "no"  I  "N"  I  "n",  (assert,  check.pt),  st_l_l_60), 

(assert,  wrong_ans),  st_l_l_45) ) 

(st_l_l_60,  ( (0,  clear), 

(5,  write,  "It  is  assumed  that  you  wish  to  EXIT."),  (0,quit) ), 
st_l_l_60 ) 

(st_l_l_65,  ( (3,  clear),  (5,  clear), 

(3,  write,  "Let’s  take  a  look  at  the  MOUSE  again.") ), 

(assert,  help),  st_l_l_10) 
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(st_l_l_70,  ( (7,  write,  "Don't  be  afraid  to  try  pressing  a  button  on  the  mouse."), 

(0,  input,  mouse), 

(9,  input,  keyboard)  ), 

( (15  seconds  &  (past  st_l_l_70  wait_wait),  st_l_l_55), 

(15  seconds  &  (past  st_l_l_10  wait),  (assert,  wait_wait),  st_l_l_70), 

(click-left  &  (past  st_l_l_140  help  I  past  st_l_l_140  wrong_ans),  st_l_l_140), 
(click-left,  (assert,  left),  st_l_l_15), 

(click-middle  &  (past  st_l_l_40  2X_wrong),  st_l_l_45), 

(click-middle  &  (past  st_l_l_35  wrong_ans),  st_l_l_40), 

(click-middle,  (assert,  mid),  st_l_l_35), 

(click-right  &  (past  st_l_l_40  2X_wrong),  st_l_l_45), 

(click-right  &  (past  st_l_l_35  wrong_ans),  st_l_l_40), 

(click-right,  (assert,  right),  st_l_l_35), 

(("Help"  I  "I  do  not  know")  &  (past  st_l_l_10  help),  st_l_l_45), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_65), 

((past  st_l_l_10  wrong_ans  &  past  st_l_l_35  wrong_ans),  st_l_l_45), 

(assert,  wrong_ans),  st_l_l_35  ) ) 
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(st_l_l_75,  ( (3,  clear),  (7,  clear),  (9,  clear), 

(3,  write,  "You  did  not  find  the  CONTINUE  button.  You  must  first  move  the  position 
of  the  cursor  so  that  the  cursor  is  positioned  within  the  rectangle  labelled  'CONTINUE.' 
Once  you  have  positioned  the  cursor,  click  the  left  mouse  button  once."), 

(5,  write,  "Locate  the  CONTINUE  button  and  click  the  left  mouse  button  once."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (click-continue  &  (past  st_l_l_175  help  I  past  st_l_l_175  wrong_ans), 
st_l_l_160), 

(click-continue  &  (past  st_l_l_165  help  I  past  st_l_l_165  wrong_ans), 
st_l_l_160), 

(click-continue  &  (past  st_l_l_160  help  I  past  st_l_l_160  wrong_ans), 
st_l_l_160), 

(click-continue  &  (past  st_l_I_150  help  I  past  st_l_l_150  wrong_ans), 
st_l_l_150), 

(click-continue  &  (past  st_l_l_145  help  I  past  st_l_l_145  wrong_ans), 
st_l_l_140), 

(click-continue  &  (past  st_l_l_140  help  I  past  st_l_l_140  wrong_ans), 
st_l_l_140), 

(click-continue  &  (past  st_l_l_l  16  help  I  past  st_]_l_l  16  wrong_ans), 
st_l_l_110), 

(click-continue  &  (past  st_l_l_l  15  help  I  past  st_l_l_l  15  wrong_ans), 
st_l_l_U0), 

(click-continue  &  (past  st_l_l_l  10  help  I  past  st_l_l_l  10  wrong_ans), 
st_l_l_110), 

(click-continue,  (assert,  continue),  st_l_6_l), 

(5  seconds,  (assert,  wait),  st_l_l_90), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_45), 

(assert,  wrong_ans),  st_l_l_45) ) 
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(st_l_l_80,  ( (7,  write,  "Don't  be  afraid  to  try  pressing  a  button  on  the  mouse."), 

(0,  input,  mouse), 

(9,  input,  keyboard)  ), 

( (15  seconds  &  (past  st_l_l_80  wait_wait),  st_l_l_55), 

(15  seconds  &  (past  st_l_l_20  wait),  (assert,  wait_wait),  st_l_l_80), 

(click-left,  (assert,  left),  st_l_l_25), 

(click-middle  &  (past  st_l_l_40  2X_wrong),  st_l_l_45), 

(click-middle  &  (past  st_l_l_35  wrong_ans),  st_l_l_40), 

(click-middle,  (assert,  mid),  st_l_l_35), 

(click-right  &  (past  st_l_l_40  2X_wrong),  st_l_l_45), 

(click-right  &  (past  st_l_l_35  wrong_ans),  st_l_l_40), 

(click-right,  (assert,  right),  st_l_l_35), 

(("Help"  I  "I  do  not  know")  &  (past  st_l_l_10  help),  st_l_l_45), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_65), 

((past  st_l_l_10  wrong_ans  &  past  st_l_l_35  wrong_ans),  st_l_l_45), 

(assert,  wrong_ans),  st_l_l_35  ) ) 

(st_l_l_85,  ( (7,  write,  "Don't  be  afraid  to  try  pressing  a  button  on  the  mouse."), 

(0,  input,  mouse), 

(9,  input,  keyboard)  ), 

( (15  seconds  &  (past  st_l_l_85  wait_wait),  st_l_l_55), 

(15  seconds  &  (past  st_l_l_20  wait),  (assert,  wait_wait),  st_l_l_85), 

(mouse-move,  st_l_l_30), 

(click-continue,  (assert,  continue),  st_l_6_l), 

("Help"  I  "I  do  not  know"  I  "How",  (assert,  help),  st_l_l_75), 

(assert,  wrong_ans),  st_l_l_75  ) ) 

(st_l_l_90,  ( (7,  write,  "Don't  be  afraid  to  try  pressing  a  button  on  the  mouse."), 

(0,  input,  mouse), 

(9,  input,  keyboard)  ), 

( (15  seconds  &  (past  st_l_l_90  wait_wait),  si_l_l_55), 

(15  seconds  &  (past  st_l_l_20  wait),  (assen,  wait_wait),  st_l_l_90), 

(click-continue,  (assert,  continue),  st_l_6_l), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_45), 

(assert,  wrong_ans),  st_l_l_45  ) ) 

j************************  MOUSE  BUTTONS  *************************/ 
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^:is****^t*3t!**:ic***>it*******)ts  frame  buttons  ***********************/ 


(St_l_l_110,((0,  clear), 

(1,  write,  "Notice  the  3  buttons  that  appear  at  the  top  of  the  screen."), 

(2,  write,  "The  buttons  are  labelled  HELP,  CONTINUE,  and  EXIT."), 

(4,  write,  "These  3  buttons  will  always  appear  at  the  top  of  the  screen  while  using  the 
Physics  of  Sound  tutorial."), 

(7,  write,  "Let's  take  a  look  at  how  these  buttons  operate."), 

(9,  write,  "Click  the  mouse  on  the  CONTINUE  button  when  you  are  ready  to  move  on 

. . ."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (click-continue,  (assert,  continue),  st_l_l_120), 

(5  seconds,  (assert,  wait),  st_l_l_l  15), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_75), 

(assert,  wrong_ans),  st_l_l_75  ) ) 

(st_l_l_l  15,  ( (7,  write,  "Don't  be  afraid  to  try  pressing  a  button  on  the  mouse."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (15  seconds  &  (past  st_l_l_l  15  wait_wait),  st_l_l_l  16), 

(15  seconds  &  (past  st_l_l_l  10  wait),  (assert,  wait_wait),  st_l_l_l  15), 
(click-continue,  (assert,  continue),  st_l_l_120), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_75), 

(assert,  wrong_ans),  st_l_l_75  ) ) 

(st_l_l_l  16,  ( (0,  clear), 

(5,  write,  "You  have  not  taken  action."), 

(8,  write,  "Do  you  want  help?"), 

(9,  input,  keyboard) ), 

(("Yes"  I  "YES"  I  "yes"  I  "Y"  I  "y",  (assert,  help),  st_l_l_75), 

("No"  I  "NO"  I  "no"  1  "N"  I  "n",  (assert,  check_pt),  st_l_l_60), 

(assen,  wrong_ans),  st_l_l_75  ) ) 
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HHLP  BUTTON  *’i‘***’*‘*****’<‘’<‘’<‘***’i‘’*‘**/ 


(st_l_l_120,  ( (0,  clear), 

(1,  write,  "The  HELP  button  can  be  used  at  any  time.  The  button  is  designed  to  assist  you 
when  you  are  unable  to  determine  the  function  of  a  specific  feature  on  the  screen."), 

(4,  write,  "To  use  the  HELP  button,  move  the  cursor  to  the  button  labelled  HELP  located 
in  the  upper  lefthand  corner  of  the  screen  and  click  the  left  mouse  button  once."), 

(5,  write,  "You  will  then  be  guided  through  the  use  of  the  particular  function  that  you 
requested."), 

(7,  write,  "Click  the  mouse  on  the  HELP  button"), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (click-help  &  (past  st_l_6_30  help  I  past  st_l_l_30  wrong_ans),  (assert,  help_button), 
st_l_6_20), 

(click-help  &  (past  st_l_6_25  help  1  past  st_l_l_25  wrong_ans),  (assert,  help_button), 
st_l_6_20), 

(click-help  &  (past  st_l_6_20  help  I  past  st_l_l_20  wrong_ans),  (assert,  help_button), 
st_l_6_20), 

(click-help,  (assert,  help_button),  st_l_l_140), 

(5  seconds,  (assert,  wait),  st_l_l_125), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_130), 

(assert,  wrong_ans),  st_l_l_130) ) 

(st_l_l_125,  ( (7,  write,  "Don't  be  afraid  to  try  pressing  a  button  on  the  mouse."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (15  seconds  &  (past  st_l_l_130  wait  &  past  st_l_l_125  wait_wait),  st_l_l_45), 

(15  seconds  &  (past  st_l_l_130  wait),  (assen,  wait_wait),  st_l_l_125), 

(15  seconds  &  (past  st_l_l_120  wait  &  past  st_l_l_125  wait_wait),  st_l_l_135), 
(15  seconds  &  (past  st_l_l_120  wait),  (assert,  wait_wait),  st_l_l_125), 

(click-help,  (assert,  help_button),  st_l_l_14()), 

("Help"  I  "I  do  not  know",  (assen,  help),  st_l_l_13()), 

(assert,  wrong_ans),  st_l_l_130  ) ) 
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(st_l_l_130,  ((1,  clear),  (4,  clear),  (5,  clear),  (7,  clear), 

(1,  write,  "You  did  not  correctly  identify  the  HELP  button.  First,  move  the  position  of 
the  cursor  so  that  the  cursor  is  positioned  within  the  rectangle  labelled  'HELP.'  Once  you 
have  positioned  the  cursor,  click  the  left  mouse  button  once."), 

(5,  write,  "Locate  the  HELP  button  and  click  the  left  mouse  button  once."), 

(0,  input,  mouse), 

(9,  input,  mouse) ), 

( (click-help,  (assert,  help_button),  st_l_l_140), 

(5  seconds,  (assert,  wait),  st_l_l_125), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_45), 

(assert,  wrong_ans),  st_l_l_45  ) ) 

(st_l_l_135,  ( (0,  clear), 

(5,  write,  "You  have  not  taken  action."), 

(8,  write,  "Do  you  want  help?"), 

(9,  input,  keyboard) ), 

(("Yes"  I  "YES"  I  "yes"  I  "Y"  I  "y",  (assert,  help),  st_l_l_130), 

("No"  I  "NO"  I  "no"  I  "N"  I  "n",  (assert,  check_pt),  st_l_l_60). 

(assert,  wrong_ans),  st_l_l_130 ) ) 

£|)(j  HELP  BUTTON  ****************************/ 
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CONTINUE  BUTTON  **************************/ 


(st_l_l_140,  ( (0,  clear), 

(1,  write,  "You  have  already  seen  the  use  of  the  CONTINUE  button.  The  CONTINUE 
button  is  used  to  perform  an  action,  such  as  moving  the  position  of  an  icon  or  to  accept 
input."), 

(4,  write,  "To  use  the  CONTINUE  button,  move  the  cursor  to  the  button  labelled 
CONTINUE  located  in  the  upper  left  of  the  screen  and  click  the  left  mouse  button  once."), 
(5,  write,  "Move  the  cursor  to  the  CONTINUE  button  and  click  left  mouse  button  once 
when  you  are  ready  to  continue  . . ."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (click-continue  &  (past  st_l_5_10  wrong_ans),  st_l_5_l), 

(click-continue  &  (past  st_l_4_5  wrong_ans),  st_l_4_5), 

(click-continue  &  (past  st_l_4_l  wrong_ans),  st_l_4_l), 

(click-continue  &  (past  st_l_3_5  wrong_ans),  st_l_3_5), 

(click-continue  &  (past  st_l_3_l  wrong_ans),  st_l_3_l), 

(click-continue  &  (past  st_l_3_l  wrong_ans),  st_l_3_l), 

(click-continue,  (assert,  continue),  st_l_l_160), 

(5  seconds,  (assert,  wait),  st_l_l_145). 

("Help"  I  "I  do  not  know",  (assert,  help).  st_l_l_75), 

(assert,  wrong_ans),  st_l_l_75  ) ) 


(st_l_l_145,  ( (7,  write,  "Don’t  be  afraid  to  try  pressing  a  button  on  the  mouse."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (15  seconds  &  (past  st_l_l_140  wait  &  past  st_l_l_145  wait_wait),  si_l_l_150), 
(15  seconds  &  (past  si_l_l_140  wait),  (assert,  wait_wait).  st_l_l_145), 
(click-continue,  (assert,  continue),  st_l_l_160), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_75), 

(assert,  wrong_ans),  st_l_l_75  ) ) 

(st_l_l_150,  ( (0,  clear), 

(5,  write,  "You  have  not  taken  action."), 

(8,  write,  "Do  you  want  help?"), 

(9,  input,  keyboard) ), 

(("Yes"  I  "YES"  I  "yes"  I  "Y"  I  "y",  (assen,  help),  st_l_l_75), 

("No"  I  "NO"  I  "no"  I  "N"  I  "n",  (assert,  check_pt),  st_l_l_60), 

(assert,  wrong_ans),  st_l_l_75  ) ) 

^4ci|i4i4i4c*4[i|c)|ci|ciic4<i|c4i4i4>4i*>k4>*i|<>l<  CONTINUE  BUTTON  **********************/ 
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^**********************^1****  ExiY  button  ***************************/ 


(st_l_l_160,  ( (0,  clear), 

(1,  write,  "The  EXIT  button  is  used  when  you  are  ready  to  stop  working  on  the  Physics 
of  Sound  tutorial."), 

(3,  write,  "If  you  are  in  the  midddle  of  the  tutorial  when  you  EXIT,  the  system  will  keep 
track  of  where  you  left  off  and  you  will  restart  at  this  point  the  the  next  time  you  logon."), 
(4,  write,  "The  EXIT  button  will  always  be  located  in  the  upper  righthand  comer  of  the 
screen."), 

(6,  write,  "We  will  not  experiment  with  the  EXIT  button  at  this  time  since  it  is  assumed 
you  wish  to  continue  on  with  the  tutorial."), 

(7,  write,  "Click  the  mouse  on  the  CONTINUE  button  when  you  are  ready  to  move  on  . 

. ."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (click-continue,  (assen,  continue),  st_l_6_l), 

(5  seconds,  (assert,  wait),  st_l_l_165), 

("Help"  I  "I  do  not  know",  (assert,  wait),  st_l_l_75), 

(assert,  wrong_ans),  st_l_l_75  ) ) 

(st_l_l_165,  ( (7,  write,  "Don't  be  afraid  to  try  pressing  a  button  on  the  mouse."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (15  seconds  &  (past  st_l_l_160  wait  &  past  st_l_l_165  wait_wait),  st_l_l_175), 

(15  seconds  &  (past  st_l_l_160  wait),  (a.ssert,  wait_wait),  .st_l_l_165), 
(click-continue,  (assert,  continue),  st_l_6_l), 

("Help"  I  "I  do  not  know",  (assert,  wait),  st_l_l_75), 

(assert,  wrong_ans),  st_l_l_75  ) ) 

(st_l_l_175,  ( (0,  clear), 

(5,  write,  "You  have  not  taken  action."), 

(8,  write,  "Do  you  want  help?"), 

(9,  input,  keyboard) ), 

(("Yes"  I  "YES"  1  "yes"  i  "Y"  I  "y",  (assert,  help),  st_l_l_75), 

("No"  I  "NO"  I  "no"  I  "N"  I  "n",  (assert,  check.pt),  st_l_l_6()), 

(assert,  wrong_ans),  st_l_l_75  ) ) 


gfjjJ  EXIT  BUTTON  ************************/ 


mastery  test  1  6  ***********************/ 


(st_l_6_l,  ( (0,  clear), 

(1,  draw,  mouse_sym), 

(4,  write,  "As  you  know,  the  mouse  is  required  for  interaction  with  the  Physics  of  Sound 
tutorial."), 

(7,  write,  "Click  the  left  mouse  button  once  on  the  CONTINUE  button  to  move  on  to  the 
next  task."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (click-continue,  (assen,  continue),  st_l_6_20), 

(5  seconds,  (assert,  wait),  st_l_6_5), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_25), 

(assert,  wrong_ans),  st_l_l_25 ) ) 

(st_l_6_5,  ( (7,  write,  "Don't  be  afraid  to  try  pressing  a  button  on  the  mouse."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (15  seconds  &  (past  st_l_6_5  wait_wait),  st_l_6_10), 

(15  seconds  &  (past  st_l_6_l  wait),  (assert,  wait_wait),  st_l_6_5), 

(click-continue,  (assert,  continue),  st_l_l_110), 

("Help"  I  "I  do  not  know",  (assen,  help),  st_l_l_25), 

(assen,  wrong_ans),  st_l_l_25  ) ) 

(st_l_6_10,  ( (0,  clear), 

(5,  write,  "You  have  not  taken  action."), 

(8,  write,  "Do  you  want  help?"), 

(9,  input,  keyboard) ), 

(("Yes"  I  "YES"  I  "yes"  I  "Y"  I  "y",  (assen,  help),  st_l_l_25), 

("No"  I  "NO"  1  "no"  I  "N"  I  ”n",  (assert,  check_pt),  st_l_l_60), 

(assert,  wrong_ans),  st_l_l_25  ) ) 

(st_l_6_20,  ( (0,  clear), 

(1,  write,  "Experiment  with  the  HELP  button  until  you  feel  comfortable  with  its  use."), 
(7,  write,  "Click  the  mouse  once  on  the  CONTINUE  button  when  you  are  ready  to  move 
on . . ."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (click-help,  (assen,  help_button),  st_l_6_20), 

(click-continue,  (assen,  continue),  st_l_2_l),  /*  NEXT  MT  */ 

(5  seconds,  (assert,  wait),  st_l_6_25), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_12()), 

(assert,  wrong_ans),  st_l_l_120  ) ) 
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(st_l_6_25,  ( (7,  write,  "Don’t  be  afraid  to  try  pressing  a  button  on  the  mouse."), 
(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (15  seconds  &  (past  st_l_6_20  wait_wait),  st_l_6_25), 

(15  seconds  &  (past  st_l_6_20  wait),  (assert,  wait_wait),  st_l_6_30), 
(click-help,  (assert,  help_button),  st_l_6_20), 

(click-continue,  (assert,  continue),  st_l_2_l),  /*  NEXT  MT  */ 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_l_120), 

(assert,  wrong_ans),  st_l_l_120 ) ) 

(st_l_6_30,  ( (0,  clear), 

(5,  write,  "You  have  not  taken  action."), 

(8,  write,  "Do  you  want  help?"), 

(9,  input,  keyboard) ), 

(("Yes"  I  "YES"  I  "yes"  I  "Y"  I  "y",  (assert,  help),  st_l_l_120), 

("No"  I  "NO"  I  "no"  I  "N"  I  "n",  (assert,  check_pt),  st_l_l_60), 

(assert,  wrong_ans),  st_l_l_l20  ) ) 

End  MT  1  6  **************************/ 
yile^iili^^^olokikiti******************  SOURCE  1  2  *************************/ 


(st_l_2_l,  ( (0,  clear), 

(1,  write,  "Now  that  you  have  become  familiar  with  the  use  of  the  mouse,  let’s  move  on 
to  another  topic."), 

(2,  write,  "In  order  to  study  the  physics  of  sound,  there  are  3  basic  properties  that  must 
exist:"), 

(3,  write,  "SOURCE,  SOUND,  and  DETECTOR  ”), 

(4,  write,  "First,  let's  dicuss  the  term  SOURCE."), 

(0,  pause,  30) ), 
st_l_2_5 ) 


(st_l_2_5,  ( (0,  clear), 

(1,  draw,  source), 

(3,  write,  "A  SOURCE  is  any  object  that  moves  or  vibrates  disturbing  the  medium  around 
it."), 

(5,  write,  "The  SOURCE  is  represented  by  a  FISH,  as  is  shown  in  the  upper  lefthand 
comer  of  the  screen."), 

(8,  write,  "Locate  the  SOURCE  by  moving  the  position  of  the  mouse  to  the  FISH  and 
click  the  left  mouse  button  once  . . ."), 

(1,  input,  mouse) ), 

( (click-left,  (assert,  left),  st_l_2_10), 

((click-middle  I  click-right)  &  (past  st_l_2_25  wrong_ans),  (assert,  help),  st_l_2_30), 
(click-middle,  (assert,  mid),  st_l_2_25), 

(click-right,  (assert,  right),  st_l_2_25), 

(5  seconds,  (assert,  wait),  st_l_2_15), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_2_30), 

(assert,  wrong_ans),  st_l_2_30 ) ) 

(st_l_2_10,  ( (3,  clear),  (5,  clear),  (8,  clear), 

(3,  write,  "Great!  You  were  able  to  locate  the  SOURCE."), 

(4,  write,  "Now,  what  can  you  do  with  the  SOURCE?"), 

(5,  write,  "You  cannot  move  the  SOURCE  since  in  a  real  world  situation  you  will  have 
no  control  over  the  location  of  a  source."), 

(0,  pause,  45) ), 
st_l_3_l  ) 

(st_l_2_15,  ( (7,  write,  "Don't  be  afraid  to  move  the  cursor  over  the  SOURCE  location  and 
pressing  a  button  on  the  mouse."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (15  seconds  &  (past  st_l_2_15  wait_wait),  st_l_2_20), 

(15  seconds  &  (past  st_l_2_5  wait),  (assert,  wait_wait),  st_l_2_15), 

(click-left,  (assen,  left),  st_l_2_10), 

((click-middle  I  click-right)  &  (past  st_l_2_25  wrong_ans),  (assert,  help),  st_l_2_30), 
(click-middle,  (assert,  mid),  st_l_2_25), 

(click-right,  (assen,  right),  st_l_2_25), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_2_30), 

(assert,  wrong_ans),  st_l_2_30 ) ) 
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(st_l_2_20,  ( (0,  clear), 

(5,  write,  "You  have  not  taken  action."), 

(8,  write,  "Do  you  want  help?"), 

(9,  input,  keyboard) ), 

(("Yes"  I  "YES"  I  "yes"  I  "Y"  I  "y",  (assert,  help),  st_l_2_30), 

("No"  I  "NO"  I  "no"  I  "N"  I  "n",  (assert,  check_pt),  st_l_l_60), 

(assert,  wrong_ans),  st_l_2_30  ) ) 

(st_l_2_25,  ( (3,  clear),  (5,  clear),  (8,  clear), 

(3,  write,  "That  is  the  incorrect  button.  Remember,  the  MIDDLE  and  RIGHT  mouse 
buttons  do  not  perform  any  function.  Try  again.") ), 
st_l_2_5) 


(st_l_2_30,  ( (3,  clear),  (5,  clear),  (8,  clear), 

(3,  write,  "Let's  review  how  to  move  the  cursor  using  the  mouse.") ), 
(assert,  help),  st_l_l_25 ) 


^****3|e******)|c************Ji<!ic*!icJic  SOURCE 


y**:ic*:ic****ii<>i<*****>ic********  mastery  test  1.7  ************************/ 


/*  DO  NOT  NEED  MT  AFTER  SOURCE  MOD  -  TOO  SIMPLISTIC  */ 


^*)(t**j|e**)((*!(c***i|t*i(!Jic******JicJf<>k***jJ:Jit**JicJit!icJi!********!it!it***>i‘***!i!*****!it*******^ 

MEDIUM  1  3  *****************************/ 


(st_l_3_l,  ( (0,  clear), 

(1,  write,  "A  MEDIUM  is  a  substance  regarded  as  the  means  of  transmission  of  a  force 
or  effect."), 

(4,  write,  "Becasue  the  POST  deals  specifically  with  underwater  sound,  the  MEDIUM 
through  which  the  sound  travels  is  SEA  WATER."), 

(7,  write,  "The  successful  transmission  of  sound  is  dependent  on  the  ability  of  the 
MEDIUM  to  react  to  changes  in  pressure  originated  by  the  sound  SOURCE."), 

(8,  write,  "Click  the  CONTINUE  button  when  you  are  ready  to  move  on  . . ."), 

(0,  input,  mouse) ), 

( (click-continue,  (assert,  continue),  st_l_3_5), 

(300  seconds,  st_l_3_5), 

(assert,  wrong_ans),  st_l_l_140 ) ) 


57 


(st_l_3_5,  ( (0,  clear), 

(1,  write,  "To  pass  on  sound,  the  MEDIUM  must  have  the  capability  to  respond  to 
variations  or  changes  in  the  SOURCE  pressure  fluctuations."), 

(4,  write,  "Sea  water  possess  the  quality  called  ELASTICITY.  This  means  that  the  sound 
pressures  causes  physical  movement  of  the  water  molecules  which  return  to  their  normal 
state  following  the  passage  of  SOUND."), 

(7,  write,  "The  travel  of  sound  through  a  MEDIUM  is  called  PROPOGATION."), 

(8,  write,  "Click  the  CONTINUE  button  when  you  are  ready  to  move  on  . . ."), 

(0,  input,  mouse) ), 

( (click-continue,  (assert,  continue),  st_l_4_l), 

(300  seconds,  st_l_4_l), 

(assert,  wrong_ans),  st_l_l_140 ) ) 

^lix^tiiii^ttiti)!*******************  End  MEDIUM  ****************************/ 

jvlASTERY  TEST  1  8  ***********************/ 

/*  DO  NOT  NEED  MT  AFTER  MEDIUM  MODULE  -  TOO  SIMPLISTI  */ 

^*********l(<l(C*********)|C*Ji!*****ji<3i<**Jit*5|CJitJ|<!it!iCJitSit*j|t*j|tj|Cj|c*******!i!**l(C*!(:*******^ 


^^c:lilicHi^i^i****^c**^:***i:***:ti**4‘*  SOUND  1  4  ******************************/ 


(st_l_4_l,  ( (0,  clear), 

(1,  draw,  path), 

(3,  write,  "SOUND  is  a  mechanical  wave  motion  that  is  generated  or  propagated  in  an 
elastic  MEDIUM."), 

(4,  write,  "SOUND  is  represented  by  a  line.  Since  SOUND  has  direction,  the  line  will 
point  in  the  direction  that  the  sound  is  travelling.  In  the  upper  lefthand  corner  of  the  screen, 
you  can  see  a  SOURCE  with  its  SOUND."), 

(8,  write,  "Click  the  CONTINUE  button  when  you  are  ready  to  move  on  . . ."), 

(0,  input,  mouse) ), 

( (click-continue,  (assert,  continue),  st_l_4_5), 

(300  seconds,  st_l_4_5), 

(assert,  wrong_ans),  st_l_l_140 ) ) 
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(st_l_4_5,  ( (3,  clear),  (4,  clear), 

(3,  write,  "This  line  is  called  a  RAY  PATH."), 

(8,  write,  "Click  the  CONTINUE  button  when  you  are  ready  to  move  on  . . ."), 

(0,  input,  mouse) ), 

( (click-continue,  (assert,  continue),  st_l_5_l), 

(3(X)  seconds,  st_l_5_l), 

(assert,  wrong_ans),  st_l_l_140 ) ) 

End  SOUND  **********************************/ 

MASTERY  TEST  1  9  **************************/ 

/*  DO  NOT  NEED  MT  AFTER  SOUND  MOD  -  TOO  SIMPLISTIC  */ 

yjf:**************************************^'**********:^*********!!!*!,:*****^ 

detector  1  ^  ****>tt***>l<****!it****>i‘*******^ 


(st_l_5_l,  ( (0,  clear), 

(1,  draw,  detector), 

(2,  write,  "A  DETECTOR  is  the  RECEIVER  of  SOUND."), 

(4,  write,  "The  DETECTOR  is  represented  by  a _ as  is  located  in  the 

upper  lefthand  corner  of  the  screen."), 

(5,  Nvrite,  "Locate  the  DETECTOR  by  placing  the  cursor  in  the  DETECTOR  and  click 
the  left  mouse  button  once."), 

( 1 ,  input,  mouse) ), 

( (click-left,  (assert,  left),  st_l_5_10), 

((click-middle  I  click-right)  &  (past  st_l_5_25  wrong_ans),  (assert,  help),  st_I_2_30), 
(click-middle,  (assert,  mid),  st_l_5_25), 

(click-right,  (assert,  right),  st_l_5_25), 

(5  seconds,  (assert,  wait),  st_l_5_15), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_5_30), 

(assert,  wrong_ans),  st_l_5_30  ) ) 


.59 


(st_l_5_10,  ( (3,  clear),  (5,  clear),  (8,  clear), 

(3,  write,  "Great!  You  were  able  to  locate  the  DETECTOR."), 

(4,  write,  "Now,  what  can  you  do  with  the  DETECTOR?"), 

(7,  write,  "The  position  of  the  DETECTOR  can  be  determined  by  you.  To  change  the 
position  of  the  DETECTOR,  position  the  cursor  inside  the  DETECTOR.  Hold  down  the 
left  mouse  button  and  drag  the  mouse  until  the  DETECTOR  moves  to  the  position  you  want 
it  and  then  release  the  left  mouse  button."), 

(8,  write,  "Click  the  CONTINUE  button  when  you  are  ready  to  move  on  . . ."), 

(0,  input,  mouse) ), 

( (click-continue,  (assert,  continue),  st_l_5_35), 

(300  seconds,  st_l_5_35), 

(assert,  wrong_ans),  st_l_l_140 ) ) 

(st_l_5_15,  ( (7,  write,  "Don't  be  afraid  to  move  the  cursor  over  the  DETECTOR  location 
and  pressing  a  button  on  the  mouse."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (15  seconds  &  (past  st_l_5_15  wait_wait),  st_l_5_20), 

(15  seconds  &  (past  st_l_5_5  wait),  (assert,  wait_wait),  st_l_5_15), 

(click-left,  (assert,  left),  st_l_5_10), 

((click-middle  I  click-right)  &  (past  st_l_5_25  wrong_ans),  (assert,  help),  st_l_5_30), 
(click-middle,  (assert,  mid),  st_l_5_25), 

(click-right,  (assert,  right),  st_l_5_25), 

("Help"  I  "I  do  not  know",  (assert,  help),  si_l_5_30), 

(assert,  wrong_ans),  st_l_5_30 ) ) 

(st_l_5_20,  ( (0,  clear), 

(5,  write,  "You  have  not  taken  action.”), 

(8,  write,  "Do  you  want  help?”), 

(9,  input,  keyboard) ), 

(("Yes"  I  "YES”  I  "yes”  I  ”Y”  I  ”y”,  (assert,  help),  st_l_5_30), 

("No"  I  "NO"  I  "no”  I  ”N”  I  ”n”,  (assert,  check_pt),  st_l_l_60), 

(assert,  wrong_ans),  st_l_5_30  ) ) 

(st_l_5_25,  ( (3,  clear),  (5,  clear),  (8,  clear), 

(3,  write,  "That  is  the  incorrect  button.  Remember,  the  MIDDLE  and  RIGHT  mouse 
buttons  do  not  perform  any  function.  Try  again.") ), 

(assert,  wrong_ans),  st_l_5_l  ) 

(st_l_2_30,  ( (3,  clear),  (5,  clear),  (8,  clear), 

(3,  write,  "Let's  review  how  to  move  the  cursor  using  the  mouse.”) ), 

(assert,  help),  st_l_l_25 ) 
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(st_l_5_35,  ( (2,  clear),  (3,  clear),  (4,  clear),  (7,  clear), 

(2,  write,  "Try  changing  the  position  of  the  DETECTOR."), 

(4,  write,  "Click  the  CONTINUE  button  when  you  are  ready  to  move  on  .  . ."), 
(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (click-left,  (assert,  move_detector),  st_l_5_50), 

(click-continue,  (assert,  continue),  st_l_10_l), 

(15  seconds,  (assert,  wait),  st_l_5_45), 

("Help"  I  "I  do  not  know",  (assert,  help),  st_l_5_l), 

(assen,  wrong_ans),  st_l_5_l ) ) 

(st_l_5_40,  ( (0,  clear,  detector@  (detector. x,  detector.y)), 

(1,  draw,  detector(2)(mouseX,  mouse Y) ) ), 
st_l_5_35) 

(st_l_5_45,  ( (7,  write,  "Don't  be  afraid  to  change  the  DETECTOR  location."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (15  seconds  &  (past  st_l_5_45  wait_wait),  st_l_5_20), 

(15  seconds  &  (past  st_l_5_35  wait),  (assert,  wait_wait),  st_l_5_45), 
(click-continue,  (assert,  continue),  st_l_10_l), 

("Help"  I  "I  do  not  know",  (assen,  help),  st_l_5_l), 

(assert,  wrong_ans),  st_l_5_l  ) ) 

(st_l_5_50,  ( (1,  clear,  detector@(detector.x,  detector.y)), 

(1,  draw,  detector(a)(mouseX,  mouse Y)) ), 
st_l_5_35) 


^*********************4:****  End  DETECTOR  ***************************/ 

***  A  1)1  Ik  Ik  40)1 4<4<II<4C4<  lit******  MASTERY  TEST  1  10  ****4c4:4<4c4c4<4:4c4<if:4c4<4<4<4<4c4<4c4<^ 


(st_l_10_l,  ( (0,  clear), 

(1,  draw,  source(S)(mouseX,  mouseY) ), 

(1,  draw,  path@(mouseX,  mouseY) ), 

(1,  draw,  detector© (mouseX,  mouseY) ), 

(7,  write,  "Move  the  DETECTOR  so  that  the  SOUND  will  hit  the  DETECTOR."), 
(0,  input,  mouse) ), 

( (click-left,  (assert,  move_detector),  st_l_10_10), 

(45  seconds,  (assert,  wait),  st_l_10_20), 
st_l_10_20) ) 
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(st_l_10_10,  ( (1,  clear,  detector® (detector.x,  detector.y)), 

(1,  draw,  detector®  (mouseX,  mouse  Y)) ), 

( (click-left  &  (mouseX  <=  sound.x  +  halfwid  &  mouseX  >=  sound. x  -  halfwid  & 
mouseY  <=  sound.y  +  halfht  &  mouseY  >=  sound.y  -  halfht),  (assen,  hit),  st_l_10_15), 
(click-left  &  ( (past  st_l_10_10  miss_left)  I 

(past  st_l_10_10  miss_right)  I 

(past  st_l_10_10  missjow)  I 

(past  st_l_10_10  miss_high)),  (assert,  help), 

st_l_10_30), 

(click-left  &  (mouseX  <  sound.x  -  halfwid),  (assert,  miss_left),  st_l_10_20), 
(click-left  &  (mouseX  >  sound.x  +  halfwid),  (assert,  miss_right),  st_l_10_20), 
(click-left  &  (mouseY  <  sound.y  -  halfht),  (assert,  miss_low),  st_l_10_20), 
(click-left  &  (mouseY  >  sound.y  +  halfht),  (assert,  miss_high),  st_l_10_20), 

(45  seconds,  (assert,  wait),  st_l_10_20) ) ) 

(st_l_10_15,  ( (7,  clear), 

(7,  write,  "Very  good.  You  positioned  the  DETECTOR  correctly.") 

), 

st_7_l  ) 

(st_l_10_20,  ( (7,  clear), 

(4,  write,  "Do  you  need  HELP  in  how  to  move  the  DETECTOR?"), 

(9,  input,  keyboard) ), 

( (("YES"  I  "Yes"  I  "yes"  I  "y"  I  "Y"),  (assert,  help),  st_l_5_l), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_10_10  missjeft)  & 

((past  st_l_10_30  move_detector)  I  (past  st_l_10_3()  miss_again)), 

(assert,  help),  st_l_l_45), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_10_10  missjeft),  st_l_10_25), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_10_10  miss_right)  & 

((past  st_l_l()_3()  move_detector)  I  (past  st_l_10_3()  miss_again)), 
(assen,  help),  st_l_l_45), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_l()_10  miss_right),  st_l_l()_35), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_10_10  missjow)  & 

((past  st_l_10_30  move_detector)  I  (past  st_l_10_30  miss_again)), 

(assert,  help),  st_l_l_45), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_10_10  missjow),  st_l_10_40), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_10_10  miss_high)  & 

((past  st_l_10_30  move_detector)  I  (past  st_l_l()_3()  miss_again)), 
(assert,  help),  st_l_l_45), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_l()_l()  miss_high),  st_l_l()_45), 

(300  seconds,  (assert,  wait),  st_l_l_60) ) ) 
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(st_l_10_25,  ( (7,  clear), 

(4,  write,  "You  moved  the  DETECTOR  too  far  to  the  left."), 

(7,  write,  "Try  again.") ), 
st_l_10_l  ) 

(st_l_10_30,  ( (4,  clear),  (7,  clear), 

(4,  write,  "To  position  the  DETECTOR  correctly,  the  RAY  PATH  must  hit  some  part  of 
the  DETECTOR."), 

(7,  write,  "Move  the  DETECTOR  so  that  the  SOUND  will  hit  the  DETECTOR."), 

(1,  input,  mouse) ), 

( (click-left,  (assert,  move_detector),  st_l_10_l0), 

(assert,  miss_again),  st_l_10_20  ) ) 

(st_l_10_35,  ( (7,  clear), 

(4,  write,  "You  moved  the  DETECTOR  too  far  to  the  right."), 

(7,  write,  "Try  again.") ), 
st_l_10_l  ) 

(st_l_10_40,  ( (7,  clear), 

(4,  write,  "You  moved  the  DETECTOR  too  far  to  the  low."), 

(7,  write,  "Try  again.") ), 
st_l_10_l  ) 


(st_l_10_45,  ( (7,  clear), 

(4,  write,  "You  moved  the  DETECTOR  too  far  to  the  high."), 
(7,  write,  "Try  again.") ), 
st_l_10_l  ) 


gpjjj  detector  **********’''***************/ 


y********************  (jf  intro  &  BASIC  DEES  bubble  ***************/ 


6.^ 


mastery  test  7 

^*************  jjjjg  jg  J|,g  overall  MT,  Level  1  of  CFD  **********************/ 


/*  TASK  -  Direct  Path  */ 

(st_7_l,  ( (0,  clear), 

(1,  draw,  source®  (mouseX,  mouseY)),  /*  center  pt  of  mouse*/ 

(1,  draw,  path@(mouseX,  mouseY)),  /*  Direct  Path  */ 

(1,  draw,  detector@(mouseX,  mouseY)), 

(7,  write,  "Move  the  DETECTOR  so  that  the  SOUND  will  hit  the  DETECTOR."), 
(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (click-left,  (assert,  move_detector),  st_l_7_10), 

(45  seconds,  (assert,  wait),  st_l_10_20), 

("Help"  I  "I  do  not  know"  I  "How",  (assert,  help),  st_l_5_10), 
st_l_7_20) ) 

(st_l_7_10,  ( (1,  clear,  detector® (detector.x,  detector.y)), 

(1,  draw,  detector® (mouseX,  mouseY)) ), 

( (click-left  &  (mouseX  <=  sound_direct.x  +  halfwid  & 
mouseX  >=  sound_direct.x  -  halfwid  & 
mouseY  <=  sound_direct.y  +  halfht  & 
mouseY  >=  sound_direct.y  -  halfht),  (assert,  hit),  st_l_7_15), 

(click-left  &  ((past  st_l_7_10  missjeft)  I  (past  st_l_7_10  miss_right) 

I  (past  st_l_7_10  missjow)  I  (past  st_l_7_10  miss_high)), 

(assert,  help),  st_l_7_30), 

(click-left  &  (mouseX  <  sound_direct.x  -  halfwid), 

(assen,  missjeft),  st_l_7_20), 

(click-left  &  (mouseX  >  sound_direct.x  +  halfwid), 

(assert,  miss_right),  st_l_7_20), 

(click-left  &  (mouseY  <  sound_direct.y  -  halfht), 

(assen,  missjow),  st_l_7_20), 

(click-left  &  (mouseY  >  sound_direct.y  +  halfht). 

(assert,  miss_high),  st_l_7_20), 

(45  seconds,  (assert,  wait),  st_l_7_2()) ) ) 

(st_l_7_15,  ( (7,  clear), 

(7,  write,  "Very  good.  You  positioned  the  DETECTOR  correctly.") 

), 

st_7_100 ) 
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(st_l_7_20,  ( (7,  clear), 

(4,  write,  "Do  you  need  HELP  in  how  to  move  the  DETECTOR?"), 

(9,  input,  keyboard) ), 

( (("YES"  I  "Yes"  I  "yes"  I  "y"  I  "Y"),  (assert,  help),  st_l_5_l), 

(("NO"  I  "No"  I  "no"  I  "n"  1  "N")  &  (past  st_l_7_10  missjeft)  & 

((past  st_l_7_30  move_detector)  I  (past  st_l_7_30  miss_again)), 

(assert,  help),  st_l_l_45), 

(("NO"  1  "No"  1  "no"  1  "n"  1  "N")  &  (past  st_l_7_10  missjeft),  st_l_7_25), 

(("NO"  1  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_7_10  miss_right)  & 

((past  st_l_7_30  move_detector)  I  (past  st_l_7_30  miss_again)), 

(assert,  help),  st_l_l_45), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_7_10  miss_right),  st_l_7_35), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_7_10  missjow)  & 

((past  st_l_7_30  move_detector)  I  (past  st_I_7_30  miss_again)), 

(assert,  help),  st_l_l_45), 

(("NO"  1  "No"  I  "no"  I  "n"  1  ”N")  &  (past  st_l_7_10  missjow),  st_l_7_40), 

(("NO”  I  "No"  I  "no"  1  "n"  I  "N")  &  (past  st_l_7_10  miss_high)  & 

((past  st_1..7_30  move_detector)  I  (past  st_l_7_30  miss_again)), 

(assert,  help),  st_l_l_43), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_7_10  miss_high),  st_l_7_45), 

(300  seconds,  (assert,  wait),  st_l_l_60) ) ) 

(st_l_7_25,  ( (7,  clear), 

(4,  write,  "You  moved  the  DETECTOR  too  far  to  the  left.”), 

(7,  write,  "Try  again.") ), 
st_l_7_l  ) 

(st_l_7_30,  ( (4,  clear),  (7,  clear), 

(4,  write,  "To  position  the  DETECTOR  correctly,  the  RAY  PATH  must  hit  some  part  of 
the  DETECTOR."), 

(7,  write,  "Move  the  DETECTOR  so  that  the  SOUND  will  hit  the  DETECTOR."), 

(1,  input,  mouse) ), 

( (click-left,  (assert,  move_detector),  st_l_7_l()). 

(assert,  miss_again),  st_l_7_20  ) ) 

(st_l_7_35,  ( (7,  clear), 

(4,  write,  "You  moved  the  DETECTOR  too  far  to  the  right."), 

(7,  write,  "Try  again.") ), 
st_l_7_l  ) 
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(st_l_7_40,  ( (7,  clear), 

(4,  write,  "You  moved  the  DETECTOR  too  far  to  the  low."), 

(7,  write,  "Try  again.") ), 
st_l_7_l  ) 

(st_l_7_45,  ( (7,  clear), 

(4,  write,  "You  moved  the  DETECTOR  too  far  to  the  high."), 

(7,  write,  "Try  again.") ), 
st_l_7_l  ) 

/*  End  TASK  Direct  Path  */ 

/*  TASK  Reflected  Surface  Refracted  (RSR)  */ 

(st_7_100,  ( (0,  clear), 

(1,  draw,  source®  (mouseX,  mouseY) ), 

(1,  draw,  path@(mouseX,  mouseY) ),  /*  RSR  Path  */ 

(1,  draw,  detector@(mouseX,  mouseY) ), 

(3,  write,  "Move  the  DETECTOR  so  that  the  SOUND  will  hit  the  DETECTOR."), 

(0,  input,  mouse), 

(9,  input,  keyboard) ), 

( (click-left,  (assert,  move_detector),  st_l_7_110), 

(45  seconds,  (assen,  wait),  st_l_10_120), 

("Help"  I  "I  do  not  know"  I  "How",  (assert,  help),  st_l_5_l), 
st_l_7_120) ) 

(st_l_7_l  10,  ( (1,  clear,  detector®  (detector.x,  detector.y)), 

(1,  draw,  detector®  (mouseX,  mouseY)) ), 

( (click-left  &  (mouseX  <=  sound_RSR.x  +  halfwid  &  mouseX  >=  sound_RSR.x  - 
halfwid  &  mouseY  <=  sound_RSR.y  +  halfht  &  mouseY  >=  sound_RSR.y  -  halfht), 
(assert,  hit),  st_l_7_l  15), 

(click-left  &  ((past  st_l_7_l  10  missjeft)  I  (past  st_l_7_l  10  miss_right) 

I  (past  st_l_7_l  10  miss_low)  I  (past  st_l_7_l  10  miss_high)), 

(assert,  help),  st_l_7_130), 

(click-left  &  (mouseX  <  sound_RSR.x  -  halfwid),  (assert,  missjeft),  st_l_7_120), 
(click-left  &  (mouseX  >  sound_RSR.x  +  halfwid),  (assert,  miss_right),  si_l_7_120), 
(click-left  &  (mouseY  <  sound_RSR.y  -  halfht),  (assert,  missjow),  st_l_7_12()), 
(click-left  &  (mouseY  >  sound_RSR.y  +  halfht),  (assert,  miss_high),  st_l_7_120), 
(45  seconds,  (assert,  wait),  st_l_7_120) ) ) 
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(st_l_7_l  15,  ( (7,  clear), 

(7,  write,  "Very  good.  You  positioned  the  DETECTOR  correctly."), 

(0,quit)), 

st_l_7_115) 

(st_l_7_120,  ( (7,  clear), 

(4,  write,  "Do  you  need  HELP  in  how  to  move  the  DETECTOR?"), 

(9,  input,  keyboard) ), 

( (("YES"  I  "Yes"  I  "yes"  I  "y"  I  "Y"),  (assen,  help),  st_l_5_l), 

(("NO"  I  "No"  I  "no"  1  "n"  I  "N")  &  (past  st_l_7_l  10  missjeft)  & 

((past  st_l_7_130  move_detector)  I  (past  st_l_7_130  miss_again)), 

(assert,  help),  st_l_l_45), 

(("NO"  I  "No"  1  "no"  I  "n"  I  "N")  &  (past  st_l_7_l  10  missjeft),  st_l_7_125), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_7_l  10  miss.right)  & 

((past  st_l_7_130  move_detector)  I  (past  st_l_7_130  miss_again)), 

(assert,  help),  st_l_l_45), 

(("NO”  I  "No”  I  "no"  I  "n"  I  "N")  &  (past  st_l_7_l  10  miss_right),  st_l_7_135), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_7_l  10  missjow)  & 

((past  st_l_7_130  move_detector)  1  (past  st_l_7_130  miss_again)), 

(assert,  help),  st_l_l_45), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_7_l  10  missjow),  st_l_7_140), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_7_l  10  miss.high)  & 

((past  st_l_7_130  move_detector)  I  (past  st_l_7_13()  miss_again)), 

(assert,  help),  st_l_l_45), 

(("NO"  I  "No"  I  "no"  I  "n"  I  "N")  &  (past  st_l_7_l  10  miss.high),  .st_l_7_145), 

(300  seconds,  (assert,  wait),  st_l_l_6()) ) ) 

(st_l_7_125,  ( (7,  clear), 

(4,  write,  "You  moved  the  DETECTOR  too  far  to  the  left."), 

(7,  write,  "Try  again.") ), 
st_l_7_100 ) 

(st_l_7_130,  ( (4,  clear),  (7,  clear), 

(4,  write,  "To  position  the  DETECTOR  correctly,  the  RAY  PATH  must  hit  some  pan  of 
the  DETECTOR."), 

(7,  write,  "Move  the  DETECTOR  so  that  the  SOUND  will  hit  the  DETECTOR."), 

(1,  input,  mouse) ), 

( (click-left,  (assert,  move_detector),  st_l_7_110), 

(assert,  miss_again),  st_l_7_120  ) ) 
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(st_l_7_135,((7.clcar), 

(4,  write,  "You  moved  the  DETECTOR  too  far  to  the  right."), 
(7,  write,  "Try  again.") ), 
st_l_7_100 ) 

(st_l_7_140,  ( (7,  clear), 

(4,  write,  "You  moved  the  DETECTOR  too  far  to  the  low."), 
(7,  write,  "Try  again.") ), 
st_l_7_100 ) 


(st_l_7_145,  ( (7,  clear), 

(4,  write,  "You  moved  the  DETECTOR  too  far  to  the  high."), 

(7,  write,  "Try  again.") ), 

st_l_7_100) 

/*  End  TASK  RSR  */ 
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APPENDIX  C 


GRAMMAR 


cfd_graph  ::=  cfd_graph  cfd_node  I  cfd_node  I  cfd_menu  cfd_node 

cfd_node  ::=  "("  cfd_id  action_Iist responsejist ")"  I  identifier  string 

cfd_menu  ::=  "("  "menu"  string  menulist ")" 

menulist  ::=  string  "->"  cfd_id  ","  menulist  I  string  "->"  cfd_id 

cfd_id  ::=  identifier 

actionjist  ::=  "("  act_node_list ")"  I  action_node 
responsejist  ::=  "("  res_nodeJist ")"  I  response_node 
action_node  "("  region  Jd  action  ")" 

act_nodeJist  ::=  act_node_list  action_node  I  action_node 
response_node  ;:=  "("  pattern  cfdjd  ") 

I "("  pattern  "("  "assert"  identifier ")" cfdjd  ")" 

I "("  pattern  ","  "ignore" ")" 

I "("  pattern  "," "("  "assert"  identifier ")" ","  "ignore" ")" 

I "("  "assert" ","  identifier ")" ","  cfdjd  I  cfd_id 
res_nodeJist  ;;=res_nodeJist response_node 
I  response_node 

region  Jd  ::=  integer  I  region  Jd  "+"  integer 

action  ;:=  "draw"  identfier  I  "draw"  identifier  "@"  location  I  "clear" 

I  "clear"  ","  identifier  location  I  "write" string  I  "input"  inputjist 
I  "pause" integer  I  "drag" ","  identifier  I  "quit" 
input_list  ::=  "mouse"  I  "keyboard"  I  "mouse«S:key" 
location  ::=  "("  loc_part loc_pan  ")” 
loc_part  ::=  loc_part "+"  term  I  loc_part term  I  term 
term  ::=  term  "*"  factor  I  term  factor  I  factor 

factor  ;;=  integer  I  "mouseX"  I  "mouseY"  I  identifier  ".x"  1  identifier  ".y"  1  "halfwid" 
I  "halfht"  I "("  loc_part  ")" 

patpart  ::=  keywords  I  "click-left"  I  "click-right"  I  "click-middle"  I  "click-any" 

I  loc_part  relop  loc_part  I  "click-exit"  I  "click-help"  I  "click-continue" 

I  "mouse-move"  I  integer  "seconds"  I  "past"  cfdjd  identifier  I "("  pattern  ")" 
patconj  ::=  patpart  I  patconj  patpart 
pattern  ::=  patconj  I  pattern  "I"  patconj 
relop  ;;=  "=="  1  ">"  I  "<"  I  ">="  I  "<=" 
keywords  ;:=  string 
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APPENDIX  D 


lex  AND  yacc  FILES 


A.  parser.h  -  HEADER  FILE 

/*  defines  for  cfd  data  structures  and  values  */ 


/*  region  codes,  or'd  to  make  resultant  code  */ 

#define  REG_ALL  0 

#define  REG.ONE  1 

#define  REG_TWO  2 

#define  REG_THREE  4 

#define  REG_FOUR  8 

#define  REG.FIVE  16 

#define  REG.SIX  32 

#define  REG.SEVEN  64 

#define  REG.EIGHT  128 

#define  REG.NINE  256 

#define  REG.OTHER  512 


/*  action  codes  */ 
#define  ACT.NULL  0 
#define  ACT_DRAW  1 
#define  ACT_CLEAR  2 
#defineACT_WRITE  3 
#defineACT_INPUT  4 
#defineACT_PAUSE  5 
#defineACT_QUIT  6 
#define  ACT_DRAG  7 


/♦  input  modes  */ 

#define  MODE.NULL  0 
#define  MODE_MOUSEONLY  1 
#define  MODE_KEYONLY  2 
#define  MODE.MOUSEKEY  3 
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/*  response  codes  */ 

#derineRES_NULL  0 
#define  RES.KEY  1 
#define  RES.CLICKLEFT  2 
#define  RES.CLICKRIGHT  3 
#derine  RES.CLICKMID  4 
#define  RES.CLICKANY  5 
#define  RES_MOUSEX  6  /*  unused  */ 

#define  RES.MOUSEY  7  /*  unused  */ 

#defme  RES.MOUSEMOVE  8 
#define  RES_SECONDS  9 
#define  RES_PAST  10 

#derine  RES.CLICKHELP  1 1 
#define  RES.CLICKCONT  12 
#define  RES.CLICKEXIT  13 

/*  operator  codes  */ 

#defineOP_NULL  0 

#define  OP_GREAT  1 

#define  OP_GEQ  2 

#derineOP_EQ  3 

#derine  OP_LEQ  4 

#derine  OP.LESS  5 

#defineOP_AND  6 

#define  OP_OR  7 

#derine  OP_KEYOR  8  /*  unused  */ 

struct  expnode  { 
struct  expnode  *left,  *right; 

char  op;  /*  only  checked  if  left  or  right  isn't  null  */ 
char  ’"vamame;  /*  mousex,  mousey,  or  graph  id  */ 
char  comp;  /*  x,  y  or  blank  */ 
int  val;  /*  integer  value  in  expression  *! 

}; 


struct  locnode  { 
struct  expnode  *x,  *y; 
); 
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struct  actnode  { 

int  actloc;  /*  region  codes  or'd  together  */ 
int  action;  /*  action  code  */ 

char  *info_str;  /*  string  arguments  to  action,  including  graph  filename  */ 
int  info_int;  /*  integer  arguments  to  action,  including  input  mode  */ 
struct  locnode  *info_loc;  /*  location  arguments  to  action  */ 
struct  actnode  *next;  /*  next  action  list  */ 

); 


struct  opnode  { 

struct  opnode  *left;  /*  left  arg  to  operator  */ 
int  operator;  /*  operator  code  */ 
struct  opnode  *right;  /*  right  arg  to  operator  */ 
int  res_act;  /*  response  code  */ 

struct  expnode  *res_left,  *res_right;  /*  expression  arguments  to  response  */ 
int  res_int;  /*  integer  argument  to  response,  including  seconds  */ 
char  *res_str;  /*  string  argument  to  response  ,  includeing  keywords  */ 

}; 


struct  resnode  { 

struct  opnode  *expr;  /*  expression  tree  to  match  response  */ 
char  *label;  /*  assertion  label  */ 

struct  cfdnode  *node;  /*  node  to  go  to  if  match  response,  null  to  ignore  */ 
struct  resnode  *next;  /*  next  response  option  */ 

); 


struct  cfdnode  { 
char  *nodeid; 
struct  actnode  *actlist; 
struct  resnode  *reslist; 
struct  cfdnode  *next; 

); 


struct  menunode  { 
char  *choice; 
struct  cfdnode  *  state; 
struct  menunode  *next; 
); 


72 


struct  menu  { 
char  *title; 

struct  menunode  *choices; 

}; 


#ifdefMAIN 
#define  EXTERN 
#else 

#define  EXTERN  extern 
#endif 

EXTERN  struct  cfdnode  *cfdgraph; 
EXTERN  struct  cfdnode  *cfdlist; 
EXTERN  struct  menu  *topmenu; 

struct  picnode  { 
char  *picid; 
char  *picfile; 
struct  picnode  *next; 

); 

EXTERN  struct  picnode  *piclist; 
struct  cfdnode  *rindnode(); 
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B.  parser.l  -  LEX 


%{ 

#include  <stdio.h> 
#include  "y.tab.h" 
int  yylineno; 
im  yylen; 
int  intval; 

static  int  is_comm  =  0; 
char  *malloc(); 

%} 


%% 
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{yylineno++;  }; 

{is_comm  =  1;  } 

{ is_comm  =  0;  } 

{if  (!is_comm)  {retum(TOK_ADD);) )  ; 

(if  (!is_comm)  {retum(TOK_SUBTRACT);) )  ; 
(if  (!is_comm)  {retum(TOK_TIMES);} )  ; 

{if  (!is_comm)  {retum(TOK_DlVlDE);) )  ; 

{if  (!i-  comm)  {retum(TOK_AT);) }  ; 

{if  (!is_comm)  {retum(TOK_BAR);) }  ; 

{if  (!is_comm)  {retum(TOK_COMMA);) )  ; 
{if(!is_comm)  {retum(TOK_OPENPAREN);} )  ; 
{if  (!is_comm)  {retum(TOK_CLOSEPAREN);) }; 
{if  (!is_comm)  {retum(TOK_GREATEQ);) )  ; 

{if  (!is_comm)  {retum(TOK_LESSEQ); ) }; 

{if  (!is_comm)  {retum(TOK_EQUAL);} ); 

{if  (!is_comm)  {retum(TOK_LESS);) }  ; 

{if  (!is_comm)  {retum(TOK_ARROW);) )  ; 

{if  (!is_comm)  {retum(TOK_DEFINE);) )  ; 

{if  (!is_comm)  {retum(TOK_GREATER);} }  ; 

{if  (!is_comm)  { 
yylen  =  strlen(yytexi); 
yylval.t_str  =  malloc(yylen+l); 
stmcpy(yylval.t_str,&(yytext[  1  ]),yylen-2); 
retum(TOK_STR); ) }  ; 
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[0-9]+ 


{if  (!is_comin)  { 


intval  =  0; 

yylen  =  strlen(yytext); 
yylval.t_str  =  malloc(yylen+l); 
strncpy(yylval.t_str,yytext,yylen); 
while  (is_comm  <  yylen)  { 

intval  =  intval*  10  +  yytext[is_comm]  -  'O'; 
is_comm++; 


} 

is_comm  =  0; 
retum(TOK_NUM); 

)  }; 

ignore  (if  (!is_comm)  {retum(TOK_IGNORE);} } 

drag  (if  (!is_comm)  (retum(TOK_DRAG);) }  ; 

draw  {if  (!is_comm)  {retum(TOK_DRAW);) )  ; 

clear  {if  (!is_comm)  {retum(TOK_CLEAR);) )  ; 

write  {if  (!is_comm)  {retum(TOK_WRITE);) )  ; 

input  {if  (!is_comm)  {retum(TOK_INPUT);) )  ; 

pause  {if  (!is_comm)  {retum(TOK_PAUSE);) }  ; 

assert  {if  (!is_comm)  {retum(TOK_ASSERT);} } 

mouse  {if  (!is_comm)  {retum(TOK_MOUSE);} }  ; 

keyboard  {if  (!is_comm)  {retum(TOK_KEY);) }  ; 
mouse'S&key  {if  (!is_comm)  {retum(TOK_MOUSEKEY);) )  ; 
click-left  {if  (!is_comm)  {return(TOK_CLICKLEFT);) }  ; 
click-right  { if  (!is_comm)  { retum(TOK_CLICKRIGHT); } ) ; 
click-middle  {if  (!is_comm)  {retum(TOK_CLICKMID);) )  ; 
click-any  {if  (!is_comm)  {retum(TOK_CLICKANY);} }  ; 
click-help  {if  (!is_comm)  {retum(TOK_CLICKHELP);} ); 
click-continue  {if  (!is_comm)  {retum(TOK_CLICKCONT);) )  ; 


click-exit 

halfwid 

halfht 

mouseX 

mouseY 

mouse-move 

seconds 

past 

menu 

quit 

\x 


{if(!is_comm)  {return(TOK_CLICKEXIT);} )  ; 

{if  (!is_comm)  {retum(TOK_HALFWlD);) ) 
{if(!is_comm)  {retum(TOK_HALFHT);])  ; 
{if  (!is_comm)  {retum(TOK_MOUSEX);) } 
{if  (!is_comm)  {retum(TOK_MOUSEY);)  j 
{if  (!is_comm)  {retum(TOK_MOUSEMOVE);} )  ; 

{if  (!is_comm)  {retum(TOK_SECONDS);} } 
{if  (!is_comm)  {retum(TOK_PAST);} }  ; 

{if  (!is_comm)  {retum(TOK_MENU);} }  ; 

{if  (!is_comm)  {retum(TOK_QUIT);) )  ; 
{if(!is_comm)  {retum(TOK_XCOMP);) )  ; 
{if  (!is_comm)  {return(TOK_YCOMP);) }  ; 
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[0-9A-Za-z_-]+{if  (!is_comm)  { 
yylen  =  strlen(yytext); 
yylval.t_str  =  tnalloc(yylen+l); 
strncpy(yylval.t_str,yytext,yylen); 
retum(TOK_ID);}}  ; 

\&  {if  (!is_comm)  (retum(TOK_AMPERSAND); } }  ; 

(if  (!is_comm) 

fprintf(stderr, "unrecognized  '%s'\n",yytext); )  ; 
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C.  parser.y  -  YACC 


%union  { 
char  *t_str; 
int 

struct  cfdnode  *t_cfd; 
struct  actnode  *t_act; 
struct  resnode  *t_res; 
struct  opnode  *t_op; 
struct  locnode  *t_loc; 
struct  expnode  *t_exp; 
struct  menunode  *t_men; 

} 

%token  <t_int>  TOK.OPENPAREN  TOK_CLOSEPAREN 

%token  <t_int>  TOK_EQUAL  TOK_GREATER  TOK_LESS  TOK_GREATEQ 

TOK_LESSEQ 

%tokeii  <t_int>  TOK.ADD  TOK_SUBTRACT  TOK_TIMES  TOK.DIVIDE 
%token  <t_int>  TOK_BAR  TOK_AMPERSAND 

%token  <t_int>  TOK_COMMA  TOK_DEFINE  TOK_MENU  TOK_ARROW 

%token  <t_int>  TOK_NUM 

%token  <t_int>  TOK_ID 

%token  <t_int>  TOK_STR 

%token  <t_int>  TOK_IGNORE 

%token  <t_int>  TOK_DRAW  TOK.WRITE  TOK_CLEAR  TOK_INPUT  TOK_PAUSE 
TOK_ASSERT 

%token  <t_int>  TOK_DRAG  TOK_QUIT  TOK_MOUSEKEY  TOK_MOUSE 
TOK_KEY 

%token  <t_int>  TOK_CLICKLEFT  TOK_CLlCKRIGHT  TOK_CLICKMID 
TOK_CLICKANY 

%token  <tjnt>  TOK_CLICKHELP  TOK_CLICKCONT  TOK_CLICKEXIT 

%token  <tjnt>  TOK_MOUSEX  TOK_MOUSEY  TOK_MOUSEMOVE  TOK_PAST 

%token  <t_int>  TOK_SECONDS  TOK_HALFWID  TOK_HALFHT 

%token  <tjnt>  TOK_XCOMP  TOK_YCOMP  TOK_AT 

%type  <t_str>  cfd_id 

.%type  <t_men>  menujist 

%type  <t_men>  choice 

%type  <t_act>  actionjist 

%type  <t_act>  action_node 

%type  <t_act>  act_node_list 

%type  <t_res>  response_list 

%type  <t_res>  response_node 

%type  <t_str>  exp_assen 

%type  <t_res>  res_node_Iist 
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%type  <t_int>  regionjd 
%type  <t_act>  action 
%type  <t_int>  input_list 
%type  <t_op>  keywords 
%type  <t_op>  pattern 
%type  <t_op>  patpart 
%type  <t_op>  patconj 
%type  <t_int>  relop 
%type  <t_loc>  location 
%type  <t_exp>  locpart 
%type  <t_exp>  term 
%type  <t_exp>  factor 

%  start  cfd_graph 

%% 

cfd_graph  :  cfd_graph  cfd_node  I  cfd_graph  cfd_def  I 
start  cfd_node  I  start  cfd_def  I 
start  cfd_menu  cfd_node  I  start  cfd_menu  cfd_def ; 

start:  { 

cfdlist  =  NULL; 
cfd^aph  =  NULL; 
piclist  =  NULL; 
topmenu  =  NULL; 

#ifdefYYDEBUG 
#ifYYDEBUG 
yydebug  = 1 ; 

#else 

yydebug  =  0; 

#endif 

#endif 

}; 

cfd_menu:  TOK_OPENPAREN  TOK.MENU  TOK_STR 
{topmenu  =  NEWPTR(menu); 
topmenu->title  =  yylval.t_str; 

)  menujist  TOK_CLOSEPAREN 
( topmenu->choices  =  $5;)  ; 


menu_list:  choice  TOK_COMMA  menujist 
{tmp_menu  =  $1; 

tmp_menu->next  =  $3; 

$$  =  tmp_menu; 

)  I  choice  {$$  =  $1;}; 

choice:  TOK_STR  {tmp_str  =  yylval.t_str;)  TOK_ARROW  cfd_id 
{tmp_menu  =  NEWPTR(menunode); 
tmp_menu->choice  =  tmp_str; 
tmp_menu->state  =  findnode($4); 

tmp_menu->next  =  NULL; 

$$  =  tmp_menu; 

}; 

cfd_node  ;  TOK_OPENPAREN  cfdjd  TOK_COMMA  action_list  TOK_COMMA 
response_list  TOK_CLOSEPAREN 

{tmp_node  =  findnode($2); 
tmp_node->actlist  =  S4; 
tmp_node->reslist  =  $6; 
if  (cfdgraph  ==  NULL)  cfdgraph  =  tmp_node; 

/*  else  it's  already  linked  into  the  graph  */ 

}; 

cfd.def ;  TOKJD  {imp.str  =  yylval.t_str;)  TOK_DEFlNE  TOK.STR 
{add_defn(tmp_str,yylval.t_str); }  : 

cfd_id  ;  TOK_ID  {  $$  =  my_copy(yylval.ustr,yylen);  )  ; 

action_list :  TOK.OPENPAREN  act_node_list  TOK.CLOSEPAREN  {$$  =  $2;} 

I  action_node  {$$  =  $!;)  ; 

responsejist :  TOK_OPENPAREN  res_node_list  TOK_CLOSEPAREN  { $$  =  $2; } 
I response_node  {$$  =  $!;)  ; 

action_node  :  TOK_OPENPAREN  region_id  TOK_COMMA  action 
TOK_CLOSEPAREN 
{  tmp_act  =  $4; 

tnip_act->actloc  =  $2; 
tmp_act->next  =  NULL; 

$$  =  tnip_act: 

); 
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act_node_list :  act_node_list  TOK_COMMA  action_node 
{tmp_act  =  $1; 

if  (tmp_act  ==  NULL)  $$  =  $3; 
else  { 

while  (tmp_act->next  !=  NULL)  tmp_act=tmp_act->next; 
tmp_act->next  =  $3; 

$$  =  $1; 

} 

} 

I  action_node  {$$  =  $1;}  ; 

response_node  :  TOK_OPENPAREN  pattern  TOK_COMMA  cfd_id 
TOK_CLOSEPAREN 

{tmp_res  =  NEWPTR(resnode); 
tmp_res->label  =  NULL; 

tmp_res->expr  =  $2; 
tmp_res->node  =  findnode($4); 

$$  =  tmp_res; 

} 

I  TOK_OPENPAREN  pattern  TOK_COMMA  exp_assert 
TOK_COMMA  cfd_id 

TOK.CLOSEPAREN 

{tmp_res  =  NEWPTR(resnode); 
tmp_res->label  =  $4: 

tmp_res->expr  =  $2; 
tmp_res->node  =  findnode($6); 

$$  =  tmp_res; 

} 

I  TOK_OPENPAREN  pattern  TOK_COMMA  exp_assen 
TOK_COMMA  TOK_IGNORE 
TOK_CLOSEPAREN 

{tmp_res  =  NEWPTR(resnode); 
tmp_res->label  =  $4; 

tmp_res->expr  =  $2; 
tnip_res->node  =  NULL; 

$$  =  tmp_res; 

) 

I  TOK.OPENPAREN  pattern  TOK_COMMA  TOK_lGNORE 
TOK_CLOSEPAREN 

{tmp_res  =  NEWPTR(resnode); 
tmp_res->label  =  NULL; 

tmp_res->expr  =  $2; 
tmp_res->node  =  NULL; 
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$$  =  tmp_res; 

) 

I  exp_assert  TOK_COMMA  cfdjd 
{  tmp_res  =  NEWPTR(resnode); 
tmp_res->expr  =  NULL; 
tmp_res->label  =  $1; 

tmp_res->next  =  NULL; 
tmp_res->node  =  findnode($3); 

$$  =  tmp_res; 

} 

I  cfdjd 

{  ttnp_res  =  NEWPTR(resnode); 
tmp_res->expr  =  NULL; 
tmp_res->label  =  NULL; 

tmp_res->next  =  NULL; 
tmp_res->node  =  findnode($l); 

$$  =  tmp_res; 

}; 

exp_assen:  TOK_OPENPAREN  TOK_ASSERT  TOK_COMMA  TOK_ID 
{tinp_str  =  my_copy(yylval.t_str,yylen);)  TOK_CLOSEPAREN 
{$$  =  tmp_str;)  ; 

res_node_list ;  res_node_Iist  TOK_COMMA  response_node 
{ tmp_res  =  $  1 ; 

$$  =  NULL; 

if  (tmp_res  ==  NULL)  $S  =  $3; 
else  { 

while(tmp_res->next  !=  NULL)  imp_res  =  tmp_res->next 
tmp_res->next  =  $3; 

$$  =  $  1 ; 

) 

) 

I  response_node  {$$  =  $!;)  ; 
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region_id :  TOK_NUM 

{ switch  (intval)  { 
case  0  :  $$  =  REG_ALL;  break; 
case  1  :  $$  =  REG_ONE;  break; 
case  2  :  $$  =  REG_TWO;  break; 
case  3  :  $$  =  REG_THREE;  break; 
case  4  :  $$  =  REG_FOUR;  break; 
case  5  :  $$  =  REG_FIVE;  break; 
case  6  :  $$  =  REG_SIX;  break; 
case  7  :  $$  =  REG_SEVEN;  break; 
case  8  :  $$  =  REG_EIGHT;  break; 
case  9  ;  $$  =  REG_NINE;  break; 
default:  $$  =  REG_OTHER; 

) 

) 

I  regionjd  TOK_ADD  TOK_NUM 
{switch  (intval)  { 

case  0  :  $$  =  $1  I  REG_ALL;  break; 
case  1  :  $$  =  $1 1  REG_ONE;  break; 
case  2  :  $$  =  $1  I  REG_TWO;  break; 
case  3  :  $$  =  $1  I  REG_THREE;  break; 
case  4  :  $$  =  $1  I  REG_FOUR;  break; 
case  5  :  $$  =  $1  I  REG.FIVE;  break; 
case  6  :  $$  =  $1 1  REG_SIX;  break; 
case  7  :  $$  =  $1  I  REG_SEVEN;  break; 
case  8  :  $$  =  $1  I  REG_EIGHT;  break; 
case  9  :  $$  =  $1  I  REG_N1NE;  break; 
default:  $$  =  $11  REG_OTHER; 

) 

); 
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action  :  TOK_DRAW  TOK.COMMA  TOK_ID 

{if  ((t_pic=findpic(yylval.t_str))!=NULL) 

$$  =  new_actnode(ACT_DRAW,  t_pic->picfile,  0,  NULL); 
else  { 

fprintf(stderr,"Warning;  undefined  graph  %s\n",yylval.t_str); 

$$  =  new_actnode(ACT_DRAW,  yylval.t_str,  0,  NULL); 

1  1 

I  TOK_DRAW  TOK.COMMA  TOKJD  {tmp_str  =  yylval.t_str; )  TOK_AT  location 
(if  ((t_pic  =  findpic(tmp_str))!=NULL) 

$$  =  new_actnode(ACT_DRAW,  t_pic->picfile,  0,  $6); 
else  { 

fprintf(stderr,"Warning:  undefined  graph  %s\n",tnip_str); 

$$  =  new_actnode(ACT_DRAW,  tmp_str,  0,  $6); 

)  ) 

I  TOK_DRAG  TOK_COMMA  TOKJD 
{if  ((t_pic  =  findpic(yylval.t_str))!=NULL) 

$$  =  new_actnode(ACT_DRAG,  t_pic->picfile,  0,  NULL); 
else  { 

fprintf(stderr, "Warning:  undefined  graph  %s\n",yylval.t_str); 

$$  =  new_actnode(ACT_DRAG,  yylval.t_str,  0,  NULL); 

)  } 

I  TOK.CLEAR 

{$$  =  new_actnode(ACT_CLEAR,NULL,  0,  NULL);) 

I  TOK.QUIT 

{$$  =  ne\v_actnode(ACT_QUIT,NULL,  0,  NULL);} 

I  TOK.CLEAR  TOK_COMMA  TOKJD  {tmp_str  =  yylval.t_str;} 
TOK_AT  location 

{if  ((t_pic  =  findpic(tmp_str))!=NULL) 

$$  =  new_actnode(ACT_CLEAR,  t_pic->picfile,  0,  S6); 
else  { 

fprintf(stderr, "Warning:  undefined  graph  %s\n",tmp_str); 

$$  =  new_actnode(ACT_CLEAR,  tmp_str,  0,  $6); 

)  ) 

I  TOK.WRITE  TOK.COMMA  TOK.STR 
{$$  =  new_actnode(ACT_WRITE,yylval.t_str,0,NULL); } 

I  TOK_INPUT  TOK_COMMA  input.list 
{$$  =  new_actnode(ACTJNPUT,NULL,$2,NULL);) 

I  TOK.PAUSE  TOK_COMMA  TOK_NUM 
{$$  =  new_actnode(ACT_PAUSE,NULL,  intval,  NULL);} 


83 


,  ■•  "•.'JiWIiii'lJ.IW  J1  IJl  "I  I 


location  :  TOK_OPENPAREN  locpan  TOK_COMMA  locpart  TOK_CLOSEPAREN 
{tmp_loc  =  NEWPTR(locnode); 
tmp_loc->x  =  $2; 
tmp_loc->y  =  $4; 

$$  =  tmp_loc; 

}; 

locpart :  term  {$$  =  $1;} 

I  locpart  TOK_ADD  term 
{tmp_exp  =  NEWPTR(expnode); 
tmp_exp->left  =  $1; 
tmp_exp->op  = 
tmp_exp->right  =  $3; 
tmp_exp->vamame  =  NULL; 
tmp_exp->comp  = ' 
tmp_exp->val  =  0; 

$$  =  tmp_exp;  } 

I  locpart  TOK_SUBTRACT  term 
{tmp_exp  =  NEWPTR(expnode); 
tmp_exp->left  =  $1; 
tmp_exp->op  = 
tmp_exp->right  =  $3; 
tmp_exp->vamame  =  NULL; 
tmp_exp->comp  = ' 
tmp_exp->val  =  0; 

$$  =  tmp_exp;  }  ; 

term  :  factor  {  $$  =  $1;  } 

I  term  TOK_TIMES  factor 

{tmp_exp  =  NEWPTR(expnode); 
tmp_exp->left  =  $1; 
tmp_exp->op  = 
tmp_exp->right  =  $3; 
tmp_exp->vamame  =  NULL; 
tmp_exp->comp  = ' '; 
tmp_exp->val  =  0; 

$$  =  tmp_exp;  ) 

I  term  TOK_DIVIDE  factor 

{tmp_exp  =  NEWPTR(expnode); 
tmp_exp->left  =  $1; 
tmp_exp->op  = 
tmp_exp->right  =  $3; 
tmp_exp->vamame  =  NULL; 


84 


tmp_exp->comp  = ' 
tmp_exp->val  =  0; 

$$  =  tmp_exp;  }  ; 

factor :  TOK_NUM 

{tmp_exp  =  NEWPTR(expnode); 
tmp_exp->left  =  NULL; 
tmp_exp->op  =  ’ 
tmp_exp->right  =  NULL; 
tmp_exp->vamame  =  NULL; 
tmp_exp->conip  = ' '; 
tmp_exp->val  =  intval; 

$$  =  tmp_exp; } 

I  TOK_HALFWID 

{tmp_exp  =  NEWPTR(expnode); 
tmp_exp->left  =  NULL; 
tmp_exp->op  = ' '; 
tmp_exp->right  =  NULL; 
tmp_exp->vamame  =  "halfwid"; 
tmp_exp->comp  = ' '; 
tmp_exp->val  =  0; 

$$  =  tmp_exp;  } 

I  TOK.HALFHT 

{tmp_exp  =  NEWPTR(expnode); 
tmp_exp->left  =  NULL; 
tmp_exp->op  =  ’ '; 
tmp_exp->right  =  NULL; 
tmp_exp->vamame  =  "halfht"; 
tmp_exp->comp  =  ”; 
tmp_exp->val  =  0; 

$$  =  tmp_exp;  ) 

I  TOK_MOUSEX 

{tmp_exp  =  NEWPTR(expnode); 
tmp_exp->left  =  NULL; 
tmp_exp->op  = ' '; 
tmp_exp->right  =  NULL; 
tnip_exp->vamame  =  "mouseX"; 
tmp_exp->comp  = ' '; 
tmp_exp->val  =  0; 

$$  =  tmp_exp;  ) 

I  TOK_MOUSEY 

{tmp_exp  =  NEWPTR(expnode); 
tmp_exp->left  =  NULL; 
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tmp_exp->op  = ' 
tmp_exp->right  =  NULL; 
tmp_exp->vamame  =  "mouseY"; 
tmp_exp->comp  = ' 
tmp_exp->val  =  0; 

$$  =  tmp_exp;  } 

I  TOKJD  TOK.XCOMP 
{tmp_exp  =  NEWPTR(expnode); 
tmp_exp->left  =  NULL; 
tmp_exp->op  = ' '; 
tmp_exp->right  =  NULL; 
tmp_exp->vamame  =  yylval.t_str; 
tmp_exp->conip  =  'x'; 
tmp_exp->val  =  0; 

$$  =  tmp_exp;  } 

I  TOK_ID  TOK_YCOMP 
{tmp_exp  =  NEWPTR(expnode); 
tmp_exp->left  =  NULL; 
tmp_exp->op  =  ’ '; 
tmp_exp->right  =  NULL; 
tmp_exp->vamatne  =  yylval.t_str; 
tmp_exp->conip  =  'y'; 
tmp_exp->val  =  0; 

$$  =  tmp_exp;  } 

I  TOK.OPENPAREN  locpart  TOK_CLOSEPAREN  {$$  =  $2;}; 

input.list :  TOK.MOUSE  {$$  =  MODE.MOUSEONLY; ) 

I  TOK.KEY  {$$  =  MODE.KEYONLY;} 

I  TOK_MOUSEKEY  {$$  =  MODE_MOUSEKEY;)  ; 

patpart :  keywords  {$$  =  $!;) 

I  TOK_CLICKLEFT 

{$$  =  new_opnode(OP_NULL,NULL,NULL,NULL,NULL, 

RES_CLICKLEFT,0,NULL); ) 

1  TOK.CLICKRIGHT 

{$$  =  new_opnode(OP_NULL,NULL,NULL,NULL,NULL, 

RES_CLICKRIGHT,0,NULL); } 

I  TOK_CLICKMID 

{$$  =  new_opnode(OP_NULL,NULL,NULL, NULL, NULL, 

RES_CLICKM1D,0,NULL); ) 

I  TOK_CLICKANY 

{$$  =  new_opnode(OP_NULL,NULL,NULL,NULL,NULL, 

RES_CL1CKAN  Y,0,NULL); } 
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I  TOK_CLICKHELP 

{$$  =  new_opnode(OP_NULL,NULL,NULL,NULL,NULL, 

RES_CLICKCONT,(),NULL); } 

I  TOK_CLICKCONT 

{$$  =  new_opnode(OP_NULL,NULL,NULL,NULL,NULL, 

RES_CLICKCONT,0,NULL); ) 

I  TOK_CLICKEXIT 

{$$  =  new_opnode(OP_NULL, NULL, NULL, NULL, NULL, 

RES_CLICKEXIT,0,NULL); } 

I  Icxjpart  relop  locpart 

{$$  =  new_opnode($2,NULL,NULL,$l,$3, 

RES_NULL,0,NULL);} 

I  TOK.MOUSEMOVE 

{$$  =  new_opnode(OP_NULL,NULL,NULL,NULL,NULL, 

RES_MOUSEMOVE,0,NULL); } 

I  TOK_NUM  TOK_SECONDS 
{$$  =  new_opnode(OP_NULL,NULL,NULL,NULL,NULL, 

RES_SECONDS,intval,NULL); } 

I  TOK_PAST  cfd_id  TOK_ID 

{ 

tmp_str  =  malloc(strlen($2)+yylen+2); 
strcpy(tmp_str,$2); 
strcat(tmp_str,"/"); 
strcat(tmp_str,yylval.t_str); 

$$  = 

new_opnode(OP_NULL,NULL,NULL,NULL,NULL,RES_PAST,(),tmp_str);  ) 

I  TOK_OPENPAREN  pattern  TOK_CLOSEPAREN 
{$$  =  $2;) 


patconj  :  patpart  {$$  =  $!;) 

I  patconj  TOK_AMPERSAND  patpan 
{  $$  = 

new_opnode(OP_AND,$l,$3,NULL,NULL,RES_NULL,(),NULL);  )  ; 

pattern  ;  patconj  {$$  =  $!;)  I  pattern  TOK_BAR  patconj 

{  $$  =  new_opnode(OP_OR.$l,$3,NULL,NULL,RES_NULL,(),NULL); 

); 


relop  :  TOK_EQUAL  {$$  =  OP_EQ;} 

I  TOK_GREATER  {$$  =  OP.GREAT;} 

I  TOK.LESS  {$$  =  OP_LESS; ) 

I  TOK_GREATEQ  {$$  =  OP_GEQ;) 

I  TOK_LESSEQ  {$$  =  OP_LEQ;}  ; 

keywords :  TOK_STR 
{$$  = 

new_opnode(OP_NULL,NULL,NULL,NULL,NULL,RES_KEY,0,yylval.t_str);} 


%% 

#include  <stdio.h> 

#ifdef  STANDALONE 
#define  MAIN 
#include  "parser.h" 

#undef  MAIN 
#else 

#include  "parser.h" 

#endif 

extern  int  yylineno; 
extern  char  *yytext; 
extern  int  yylen; 
extern  int  intval; 
char  *malloc(); 
char  *tmp_str; 
struct  expnode  *tmp_exp; 
struct  opnode  *tmp_op; 
struct  resnode  *tmp_res; 
struct  cfdnode  ’'‘imp_node; 
struct  actnode  *tmp_act; 
struct  locnode  *tmp_loc; 
struct  menunode  *tmp_menu; 
struct  picnode  *t_pic; 

#define  NEWPTR(Type)  (struct  Type  *)  malloc(sizeof  (struct  Type)) 
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char  *my_copy(str,len) 
char  *str; 
int  len; 

{char  *tmp; 

if(str==NULLIIlen<=0)  { 
fprintf(stderr,"null  string  sent  to  my_copy\n"); 
return  NULL; 

) 

else  { 

if  ((tmp  =  malloc(len+l))  ==  NULL)  { 

fprintf(stderr, "Cannot  allocate  memory  for  string  of  length  %d\n",len+l); 
exit(2); 

) 

stmcpy(tmp,  str.len); 

#ifYYDEBUG 

fprintf(stdout,"copied  %s  (%d)\n",tmp,len); 

#endif 
return  tmp; 

} 

) 

struct  opnode  *new_opnode(op,oleft,oright,rleft,rright,act,num,str) 

struct  opnode  *oleft,  *oright; 

int  op,num,act; 

struct  expnode  *rleft,  *rright; 

char  *str; 

(struct  opnode  *tmp  =  NEWPTR (opnode); 

tmp->left  =  oleft; 

tmp->operator  =  op; 

tmp->right  =  oright; 

tmp->res_act  =  act; 

tmp->res_left  =  rleft; 

tmp->res_right  =  rright; 

tmp->res_int  =  num; 

tmp->res_str  =  str; 

•return  tmp; 

) 
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struct  actnode  *new_actnode(actcode,  str,  num,  loc) 
int  actcode,  num; 
char  *str; 

struct  locnode  *loc; 

{struct  actnode  *tmp  =  NEWPTR(actnode); 
tmp->actloc  =  0;  /*  whole  screen,  by  default  */ 
tmp->action  =  actcode; 
tmp->info_str  =  str; 
tmp->info_int  =  num; 
tmp->info_loc  =  loc; 
tmp->next  =  NULL; 
return  tmp; 

} 

struct  cfdnode  *findnode(target) 
char  *target; 

I  struct  cfdnode  *cur  =  cfdlist; 
if  (cur  ==  NULL)  { 
cfdlist  =  NEWPTR(cfdnode); 
cfdlist- >nodeid  =  target; 
cfdlist- >actlist  =  NULL; 
cfdlist- >reslist  =  NULL; 
cfdlist- >next  =  NULL; 
return  cfdlist; 

} 

else  ( 

if  (target  ==  NULL)  return  cfdlist; 

while  (cur->next  !=  NULL  &&  strcmp(cur->nodeid,target)!=())  cur  =  cur->next 
if  (strcmp(cur->nodeid,target)==0)  return  cur; 
else  { 

cur->next  =  NEWPTR(cfdnode); 
cur  =  cur->next; 
cur->nodeid  =  target; 
cur->actlist  =  NULL; 
cur->reslist  =  NULL; 
cur->next  =  NULL; 
return  cur; 

) 

) 

return  NULL;  /*  should  be  unreachable,  but  let's  be  safe!  */ 

) 
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struct  picnode  *findpic(target) 
char  *target; 

{struct  picnode  *cur  =  piclist; 

if  (cur  ==  NULL  II  target  ==  NULL)  return  NULL; 

while  (cur->next  !=  NULL  &&  strcmp(cur->picid .target)  0)  cur  =  cur->next; 

if  (strcmp(cur->picid,target)  ==  0)  return  cur; 
else  return  NULL; 

) 

void  add_defn(id,filename) 
char  *id,  *filename; 

(struct  picnode  *cur  =  piclist; 

if  (id  ==  NULL  II  filename  ==  NULL)  { 

fprintf(stderr,"Waming:  null  ident/filename  in  def  on  line  %d\n",yylineno); 
return; 

} 

if  (cur  ==NULL)  ( 
piclist  =  NEWPTR(picnode); 
piclist->picid  =  id; 
piclist- >picfile  =  filename; 
piclist->next  =  NULL; 

} 

else  ( 

while  (cur->next  1=  NULL  &&  strcmp(cov->picid,id) 0)  cur  =  cur'>next; 
if  (strcmp(cur->picid,id)  ==  0)  | 

fprintf(stderr, "Warning:  ignoring  duplicate  picture  named  on  line  %d\n", 
id.yylineno); 

) 

else  { 

cur->next  =  NEWPTR(picnode): 
cur  =  cur->next; 
cur->picid  =  id; 
cur->picfile  =  filename; 
cur->next  =  NULL; 

} 

•  ) 

} 
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int  yyerror(s) 
char  *s; 

{ 

fflush(stdout); 

fflush(stderr); 

fprintf(stderr,"%s  on  line  %d\n",s,  yylineno); 

} 

#ifdef  STANDALONE 
mainO 
{ 

if  (yyparse()==0)  printf("Successful  parse\n"); 
else  printfC'Unsucessful  parseNn"); 

) 

#endif 


I 
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APPENDIX  E 


INTERPRETER 


I*  FILENAME:  interp.h  */ 

/*  PURPOSE:  Declaration  of  all  global  variables,  function  */ 
/*  declarations  and  include  files  */ 

/*  CALLED  BY:  interp.c  */ 

/*  AUTHOR:  Dawn  M.  Maskell  */ 

/*  Timothy  J.  Shimeall  */ 

/*  Naval  Postgraduate  School,  Monterey,  CA  */ 

/*  DATE:  20  January  1991  */ 


/*  include  files  */ 

#include  <stdio.h> 

#include  <string.h> 

#include  “parser.h” 

#include  <suntool/sunview.h> 
#include  <suntool/canvas.h> 
#include  <suntool/icon.h> 
#include  <suntool/panel.h> 
#include  <suntool/alert.h> 
#include  <sunwindow/notify.h> 
#include  <sys/time.h> 
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#ifdefMAIN 
#define  EXTERN 
#define  INIT(Value)  =  Value 
#else 

#define  EXTERN  extern 
#defme  INIT(Value) 

#endif 

#define  ITIMER_NULL  ((struct  itimerval  *)0) 

/*  set  up  conversion  macros  */ 

#define  LINE_TO_RASTER_Y(Line)  Line*  16 
#derine  RASTER_Y_TO_LINE(Ry)  Ry/16 
#define  CHAR_TO_RASTER_X(Char)  Char*8 
#define  RASTER_X_TO_CHAR(Rx)  Rx/8 

/*  STRUCTURE  declarations  */ 

struct  assert  {  /*  for  assert  list  */ 
char  *id;  /*  state  identifier  being  asserted  */ 
struct  assert  *next;  /*  ptr  to  next  in  assert  list  */ 
}; 
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/*  GLOBAL  variables  */ 


EXTERN  struct  assert  *assert_list  INIT(NULL);  /*  create  assert  list  */ 

EXTERN  struct  cfdnode  *current_state  INIT(NULL);/*  pointer  to  current*/ 
/*  state  in  tutorial  */ 

/*  being  executed  */ 

EXTERN  Canvas  canvas;  /*  base  canvas  for  display  of  */ 

/*  graphics  and  text  */ 

EXTERN  FILE  *yyin;  /*  yacc  input  file,  default  stdin  */ 

EXTERN  Frame  frame;  /*  base  window  of  system  */ 

EXTERN  Icon  postjcon; 

EXTERN  int  panel_value;  /*  value  of  stan  state  selection  */ 
timer_on;  /*  need  to  use  a  time  */ 

EXTERN  Panel  menu_panel,  /*  display  main  menu  buttons  */ 
panel;  /*  display  base  window  panel  buttons  */ 

EXTERN  Paneljtem  button,  /*  base  window  panel  */ 
cont,  /*  base  window  panel  item  button  */ 
help,  /*  base  window  panel  item  button  */ 
menu,  /*  base  window  main  menu  check  boxes  */ 
quit;  /*  base  window  panel  item  button  */ 

#ifdef  MAIN 
/*  ICON  declarations  */ 
static  shon  icon_image(l  =  { 

#include  “post_sym.icon” 

); 


EXTERN  mpr_static(post_sym,  64,  64,  1,  iconjmage); 
#endif 
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/*  FUNCTION  declarations  */ 


EXTERN  struct  assert 
*create_assen_listO; 

EXTERN  char 
*menu_selection(); 

EXTERN  void 

canvas_repaint(), 

create_base_can  vas() , 

create_base_frame(), 

create_base_panel  () , 

do_action_list(), 

exit_selected(), 

kill_window(), 

get_file(), 

panel_repaint(), 

pauseO, 

input_events(), 

present_concept(); 

EXTERN  int 
continue_selected() , 
find_assert_list_id(), 
help_selected(), 
do_respon  se_li  St  0 , 
start_selected(); 

EXTERN  Notify_value 

pause_time(), 

my_notify(); 


y  :|(  )<■  Ililit  >|ci|cii<  41  <■  ik  >l<  >l<  I|<  ill  Ik  Ik  I|<  >i<  >k  >|I  )i»i<  %  >11  >ici|c  )|>  1|(  >1:  *  1|<  III  I|c  Ik  *  >|I  Ik  1|<  ^  >ici|c  lit  Iji  :jciit  )|t  i|i  ;ic>ii  >i(  lit ’ll  Iic>l<  li:  lie  )ii  *  *  *  ik  Iky 


/♦  HLENAME:  interp.c  */ 

/*  PURPOSE:  contains  the  routines  to  interpret  concept-flow  */ 

/*  structure  of  the  Physics  of  Sound  Tutorial  */ 

/*  CONTAINS:  mainO  */ 

/*  get_file()  */ 

/*  create_base_frame()  */ 

/*  create_base_panel()  */ 

/*  create_base_canvas()  */ 

/*  AUTHORS:  Dawn  M.  Maskell,  LT,  USN  */ 

/*  Timothy  J.  Shimeall  */ 

/*  Naval  Postgraduate  School,  Monterey,  CA  */ 

/*  DATE:  21  January  1992  */ 

/*  SOFTWARE:  SunView  */ 

/  jk  *  >k  *  )k  ik  4t  *  =k  *  Ik  Ik  Jk  Ik  *  *  *  *  *  *  *  4t  *  *  4t  4:  Ik  Ik  =k  Ik  *  =k  Ik  *  Ik  *  =k  ik  =k  *  >k  4=  *  *  ik  *  *  =k  *  *  >k  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 


#define  MAIN 


#include  “interp.h” 

main(argc,  argv) 
int  arge; 
char  *argv[]; 

{ 

/*  get  the  correct  input  file  for  tuturial  */ 
get_file(&argc,  argv); 

/*  Successful  parse  of  file,  execute  tutorial  */ 
if  (yvp.irse()  ==  0) 

{ 

/*  create  base  frame  */ 
create_base_frame(argc,  argv); 

/*  create  base  panel  */ 
create_base_panel(); 

/*  create  base  canvas  */ 
create_base_canvas(); 

window_main_loop(frame); 

} 

/*  Unsuccessful  parse  */ 

else  printf(“Unsuccessful  parselVi”); 
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^)liittilf)ltittiliiit:itiili**)ttiti*************}ic*iit*****il!ilf**ii!******** 


***J 


/*  FUNCTION:  get.fileO  */ 

/*  PURPOSE:  get  the  name  of  the  file  to  be  used  for  tutorial  */ 
/*  CALLED  BY:  main()  */ 
f*  RETURNS:  void  */ 

/*  CALLS:  */ 


/*  GLOBALS:  FILE  yyin  <interp.h>  */ 


^:fe  3)c:{c3|c9|c:)e:|c3fc:ic:|c)fe4eifc3fe:(c3|c:fc3fc3|E3fc4e9k3ie4e%3fe4f3|e%^3f:3|c3tc3fc}tcjje:fe:f: 


*/ 


void  get_file(argc,  argv) 
int  *argc; 
char  *argv[], 

{int  i; 

/*  get  name  of  tutorial  file  from  stdin  */ 
if  (*argc>l  &&  *argv[l]  !=  { 

yyin  =  fopen(argv[l],”r”); 
if  (yyin  ==  NULL)  { 

fprintf(stderr,”%s:  Can’t  open  %s\n”,argv[0].argvll]); 
exit(l); 

} 

for  (i=l;  i  <  (  *argc  -  1  );  i++) 
argv[il  =  argv[i+l]: 

(*argc)-; 

) 

/*  if  name  of  tutorial  file  not  given,  assume  */ 
else  I 

yyin  =  fopen(“post.script”.”r"); 
if  (yyin  ==  NULL)  { 

fprintf(stderr,”%s:  Can’t  open  post.script\n”,argv|()]): 
exit(l); 

} 

} 

) 
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/*  FUNCTION:  create_base_frc  Tie()  */ 

/*  PURPOSE:  create  the  main  window  that  the  entire  tutorial  */ 
/*  operates  */ 

/*  CALLED  BY:  main()  */ 

/*  RETURNS:  void  */ 

/*  CALLS:  */ 

/*  GLOBALS:  Frame  frame  <interp.h>  */ 


void  create_base_frame(argc,  argv) 
int  argc; 
char  *argv[]; 

{ 

/*  create  icon  image  */ 

postjcon  =  icon_create(ICON_IMAGE,  &post_sym,  0); 

frame  =  (Frame)window_create(NULL,  FRAME, 
FRAME_LABEL,  ((topmenu  !=  NULL)  ?  topmenu->title 
:  “Physics  of  Sound  Tutorial’’). 

FRAME_ICON,  postjcon, 

FRAME_ARGS,  argc,  argv, 

FRAME_NO_CONFIRM,  FALSE. 

NULL); 

) 


UK) 


^i|c  :|c  ik  %  ikik  i|c>|i  ilcik  III  ik  )|ciic>|cii<:|>  lie  1|<  !<<  >!<  Ik  Ii<  lie  3|<  1)<  ilciN ’ll  4=  If:  Ik  >|C  :|C  lie  :<<  III  >!<  ik  ik  >l<  lie  >k>|i  Ik  I|c  :)ciici|i  ]|c)|c  lie  1|<  Ik  Ik  III  1(1  >i<  *  *  Ik  III  >i' Ik  Ik 

/*  FUNCTION:  create_base_panel{)  */ 

/*  PURPOSE:  create  the  buttons  for  the  main  window  of  the  */ 

/*  tutorial  */ 

/*  CALLED  BY:  main()  */ 

/*  RETURNS:  void  */ 

/*  CALLS:  continue_selected  */ 

/*  exit_selected  */ 

/*  help_selected  */ 

/*  start_selected  */ 

/*  GLOBALS:  Frame  frame  <interp.h>  */ 

/♦  Panel  menu_panel,  panel  <interp.h>  */ 

^^cikikikikikikikikikikikikikikikikikikikik^eikikikikik^eikikikikikikikikikikikikikik^e^eikikikikikikikikikikikikik^eik^eNiikikikikikik^ 


void  create_base_panel() 

{ 

panel  =  (Panel)window_create(frame,  PANEL, 

WIN_WIDTH,  WIN_EXTEND_TO_EDGE, 

NULL); 

menu  =  (Panel_item)panel_create_item(panel,  PANEL_BUTTON, 
PANEL_LABEL_IMAGE,  panel_button_image(panel,  '‘START”,  5,  0), 
PANEL_NOTIFY_PROC.  start.selecied, 

NULL); 

help  =  (Panel_item)panel_create_item(panel,  PANEL_BUTTON, 
PANEL_LABEL_IMAGE,  panel_buttonJmage(panel.  “HELP”,  4,  0), 
PANEL_NOTIFY_PROC.  help_selected, 

NULL); 

cont  =  (Panel_item)panel_create_item(panel,  PANEL_BUTTON, 
PANEL_LABEL_IMAGE,  panel_button_image(panel,  “CONTINUE", 
8,0), 

PANEL_NOTIFY_PROC.  continue_selected. 

NULL); 

quit  =  (Panel_item)panel_create_item(panel,  PANEL_BUTTON, 
PANEL_ITEM_X,  590, 

PANEL_LABEL_IMAGE,  peanel_button_image(panel,  “EXIT”.  4.  0), 
PANEL_NOTIFY_PROC.  exit_selected, 

NULL); 

window_fit_height(panel); 
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/*  FUNCTION:  create_base_canvas()  */ 

/*  PURPOSE:  create  the  base  canvas  for  the  main  window  of  the  */ 
/*  tutorial  */ 

/*  CALLED  BY:  main()  */ 

/*  RETURNS:  void  */ 


/*  CALLS:  canvas_repaint  */ 

/*  GLOBALS:  Frame  frame  <interp.h>  */ 

/*  Canvas  canvas  <interp.h>  */ 

^iiti)t*ilf**3liitt**:)c************************************>l‘*****’i‘**********’i‘**^ 


void  create_base_canvas() 

{Pixwin  *pw; 

/*  create  a  canvas  on  which  to  display  the  tutorial  */ 
canvas  =  (Canvas)window_create(frame,  CANVAS, 

WIN_X,  10, 

WIN_COLUMNS,  60, 

WIN_ROWS,  45, 

CANVAS_AUTO_EXPAND,  TRUE, 

CANVAS_AUTO_SHRINK,  TRUE, 

/*  CANVAS_REPAINT_PROC,  canvas_repaint,  */ 

NULL); 

/* 

printf(“Width  of  60  chars  is  %d,  Height  of  45  lines  is  %dVi”, 

(int)  window_get(canvas,WlN_WIDTH), 

(int)window_get(canvas,  W1  N_HE1GHT) ): 

*/ 

pw  =  canvas_pixwin(canvas); 
window_set(canvas, 

WIN_CONSUME_KBD_EVENTS,  W1N_N0_EVENTS,  WIN_ASC11_EVENTS, 

WIN_CONSUME_PICK_EVENTS,  WIN.MOUSE.BUTTONS, 
WINJN_TRANSIT_EVENTS,  0, 

NULL); 

win_register(canvas,  pw,  input_events,  kill_window,  PW_RETAIN); 
notify_interpose_event_func(canvas,  my_notify,  NOTIFY_SAFE); 

} 
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^i|c  :|t  :ii  %  :|c  #  :|c  ^  3|C  :jciic  :|c  *  Ik  *  lie  >|C  *  >i<  >ii  I|<  I|c  ;k  :<<  1|C  4i  lit  « ;ic  *  *  lie  *  *  *  *  *  >lt  *  *  Ii<  * ’ll  >1:  Id  *  >!<  ><<  *  *  *  ^fciky 

/*  FUNCTION:  stan_selected()  */ 

/*  PURPOSE:  provide  on-line  help  to  user  */ 

/*  CALLED  BY:  create_base_frame()  */ 

/*  RETURNS:  int  */ 

/*  CALLS:  */ 

/*  GLOBALS:  */ 

^l|e!|ci|ci|el|<l|e’i‘>ie>i:!icl|tl|eiie!|tl|cl|e!i‘lie:|ei|elic!|el|ei|ell<iie]iclic;|i]|eiici|cl|elielielielill|ciieliel|clic:ie!ic)ieliclielic:iElic:iel|elie*lic]ielielie3ic:ici|e!ie!ie]|elie4ci|cy 


int  start_selected(item,  event) 

Panel_item  item; 

Event  *event; 

{ 

char  *start_state; 

Alert_attribute  *attr_list  =  (Alert_attribute  *)malloc 
(10*sizeof(Alert_attribute)); 

/*  load  attr_list  from  topmenu  */ 
panel_value  =  alert_prompt(panel,  NULL, 
ALERT_MESSAGE_STRINGS,  “Select  starting  point", 
NULL, 

ALERT.BUTTON,  “Introduction  *,  0, 

ALERT_BUTTON,  “Source",  1, 

ALERT.BUTTON,  “Sound",  2, 

ALERT_BUTTON,  “Detector",  3, 

ALERT_BUTTON,  “Mastery  Test",  4, 

NULL); 

/*  0, 1,  2,  3  and  4  are  value  returned  when  button  is  pushed  */ 

/*  get  main  menu  item  selected  and  start  point  of  tutuorial  */ 
start_state  =  menu_selection(); 

/*  find  start  state  in  cfdgraph  */ 
current_state  =  findnode(start_state); 

/*  do  actions  in  start  state  action  list  */ 
do_action_list(current_state->actlist); 


/*  get  event  and  find  in  response  list 
do_response_list(current_state->reslist); 
*1 
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/*  return  to  main  */ 

} 


/*  FUNCTION;  help_selected()  */ 

/*  PURPOSE:  provide  on-line  help  to  user  */ 

/*  CALLED  BY :  create_base_frame()  */ 

/*  RETURNS:  int  */ 

/*  CALLS:  */ 

/*  GLOBALS:  */ 

y  )|E  Ik  **  I|c  9|c  )k  ><<  I|<  >|c  ***  lie****  1|<  >l<  *****  >ic  ^  >|c  ****  ***  ijc  **>!:*******:{:**  if:  *  9ic  :ic  :iciic :(( ;icy 

int  help_selected(item,  event) 

Paneljtem  item; 

Event  *event; 

{ 

int  result; 

result  =  alert_prompt(panel,  NULL, 

ALERT_MESSAGE_STR1NGS,  “Help  button  selected",  NULL, 
ALERT_BUTTON_YES,  “OK”, 

ALERT_BUTTON_NO,  “CANCEL", 

NULL); 

if  (result  ==ALERT_YES) 
return  1; 
else  return  0; 

} 
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/*  FUNCTION;  continue_selected()  */ 

/*  PURPOSE:  provide  on-line  help  to  user  */ 
/*  CALLED  BY:  create_base_frame()  */ 

/*  RETURNS:  int  */ 

/*  CALLS:  */ 

/*  GLOBALS:  */ 


int  continue_selected(item,  event) 

Panel_item  item; 

Event  *event; 

{ 

int  result; 

result  =  alert_prompt(panel,  NULL, 

ALERT_MESSAGE_STRINGS,  “Do  you  wish  to  continue?”,  NULL, 
ALERT_BUTTON_YES,  ‘‘YES”, 

ALERT_BUTTON_NO,  “NO”. 

NULL); 

if  (result  ==ALERT_YES) 
return  1; 
else  return  0; 

} 
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I^^l********************************^!********************************^ 

/*  FUNCTION:  exit_selected()  */ 

/*  PURPOSE:  provide  on-line  help  to  user  */ 

/*  CALLED  BY:  create_base_frame()  */ 

/*  RETURNS:  int  */ 

/*  CALLS:  */ 

/*  GLOBALS:  */ 

y  Ik  *  xml  Ik  ***  Id  *  Dl  **  >|I  **>l<  41  Xl  ***  «***«  Xe  ************  *******************  >|cy 

void  kill_window(frame,  event,  args) 

Window  frame; 

Event  *event; 
char  *args; 

{ 

/*  this  can’t  call  window_destroy  (for  fear  of  recursive  loop)  */ 

/*  but  eventually  needs  to  do  almost  everything  else  to  clean  up  */ 
exit(O); 

} 

void  exit_selected(argc,  argv) 
int  *argc; 
char  *argv(l; 

{ 

window_destroy(frame); 
kill_window(frame,  NULL,  NULL): 

} 


lOH 


/*  FUNCTION:  menu_seclection()  */ 

/*  PURPOSE:  call  prcx:edure  based  on  main  menu  option  selected  */ 
/*  CALLED  BY:  create_base_panel()  */ 

/*  RETURNS:  void  */ 

/*  CALLS:  */ 


/*  GLOBALS:  Panel  menu_panel  <interp.h>  */ 


3{c]fe3fe:|c3tc:jc:fcj|(%3|c3(c:4e%3(c3)e4c3k)k3te3}<3f()k}ic3ic:fe%%]|c4c%^3|eJic:}c3ic3lc9tc3fe;^3(e3fc:4c:{(9{e]fc3|e:f£:{c:{e}ie3ie:r;3ic>ie»^;ie:fc3fe;ic:fc:ie})c3fc3fe3fe3fc^ 


char  *menu_selection() 

{ 

/*  based  on  the  main  menu  option  chosen,  find  the  start  state  */ 
/*  of  the  tutorial  */ 
switch  (panel_value){ 
case  0:{ 

printfCTNTRODUCTION  chosen\n”); 
printf(“Go  to  start  state:  %s\n”,  cfdgraph->nodeid); 
return  (cfdgraph->nodeid); 
break; 

) 

case  1:{ 

printf(“SOURCE  chosenVi”): 

return  (“st_2’'); 

break; 

} 

case  2;  ( 

printf(“MEDIUM  chosenXn’*); 
break; 

) 

case  3:{ 

printf(“DETECTOR  chosenVi'  ); 
break; 

} 

case  4:  { 

printf(“MT  chosenVi”); 
break; 

} 

}  /*  End  switch  */ 

} 
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#include  “interp.h” 

#include  <suntool/icon_load.h> 


static  int  is_pausing  =  0; 
static  int  mousex  =  0; 
static  int  mousey  =  0; 
static  char  inbuf[2048]; 
static  int  inbuflen  =  0; 
static  int  inx  =  0; 
static  int  iny  =  0; 

^4c]|c4i4[i|c*i|c*]t[4<*i|ci|c*i|iii<i|<4<*i<<>l<*i|‘**>l<*>ki|!i|i****************>i‘*******>i‘***>l<******>ic>ic^ 

/*  FUNCTION:  canvas_repaint()  */ 

/*  PURPOSE:  repaint  canvas  window  */ 

/*  CALLED  BY:  main()  <interp.c>  */ 

/*  RETURNS:  void  */ 

/*  CALLS:  *! 

/*  GLOBALS:  Canvas  canvas  <interp.h>  */ 

void  canvas_repaint(cvs,  pwin,  xrects) 

Canvas  cvs; 

Pixwin  *pwin; 

int  xrects;  /*  unused  */ 

{ 

Pixwin  *pw  =  canvas_pixwin(canvas); 

/*  EVENTUALLY  -  BUILD  A  REPAINT  LIST  IN  DO  ACTION  LIST  */ 

/*  EVENTUALLY  -  decode  event  */ 

/*  EVENTUALLY  -  interpret  which  state  to  go  to  based  on  event  */ 

/*  EVENTUALLY  -  do  actions  in  that  next  state  */ 

/*  EVENTUALLY  -  return  to  main  */ 

) 


no 


^lic  )|c  )|c  4cifc  ^  :tl  %  4c  *  )k>tl  :|C  %  :|l  >|c  lit  l|l  l|<  >ii  >|l  l|t  >|ciic  Ik  %]<€  Ik  *  Ift liclli  >|c  :|i  I|C  !i<  *  *  :|c  %  l|cl|c  :ic  lit  l|c  ;ic)|c  ^icicllciic  :ic  *  )|c  l|c  *  >ic  *  *  :ic  41^ 

/*  FUNCTION:  do_write()  */ 

/*  PURPOSE:  display  text  in  canvas  window  */ 

/*  CALLED  BY:  do_action_list()  */ 

/*  RETURNS:  void  */ 

/*  CALLS:  */ 


/*  GLOBALS:  Canvas  canvas  <interp.h>  */ 

yafc  4e  ;|c  3k  %  3k  ifc  :|c  :ie  4e  %  3ic  3)c  4e  %  %  :{c  3k  sfc  4c  lie  ^  3k  ^  9|c  9tc  afe  3|e  ^  3|e  %  )|c  3|c  ife  9{c  3fc  }|e  ?lc  :jc  3fe  ife  :je  jjc  %  ;fc  afe  jjc  jjc  %  :fe  ife 


void  do_write(dx,  dy,  dw,  dh,  str) 

int  dx,  /*  X  coordinate  of  pixwin  origin  */ 

dy,  /*  y  coordinate  of  pixwin  origin  */ 

dw,  /*  width  of  pixwin  */ 

dh;  /*  height  of  pixwin  */ 

char  *str;  /*  string  to  be  printed  in  pixwin  */ 

{ 

char  *cur; 
int  pos; 
char  save; 

Pixwin  *pw  =  canvas_pixwin(canvas); 
printf(“WriteNn”); 

/*  clear  the  pixwin  prior  to  writing  */ 
pw_writebackground(pw,  dx  -  CHAR_TO_RASTER_X(l). 
dy  -  LINE_TO_RASTER_Y(l ). 
dw  +  CHAR_TO_RASTER_X(l),  dh,  PIX.SRC); 

/*  write  string  in  pixwin  */ 
cur  =  str; 

/*  EVENTUALLY  —  Deal  with  scrolling  windows  */ 
while  (*cur  !=  ‘\0’)  { 

if  (strlen(cur)>  RASTER_X_TO_CHAR(dw))  { 

/*  output  up  to  word  break  prior  to  dw  and  adjust  cur  accordingly*/ 
pos  =  RASTER_X_TO_CHAR{dw); 
while  (pos>0  &&  cur|pos]!=’  ‘) 
pos-; 

if  (cur[posl!=’  ‘) 

pos  =  RASTER_X_TO_CHAR(dw);  /*  no  blank  to  break  at  */ 

save  =  cur[pos]; 

cur[pos]  =  ‘NO’;  /*  cheat  */ 

pw_text(pw,  dx,  dy,  P1X_SRC.  NULL,  cur); 

cur(pos]  =  save;  /*  uncheat  */ 


III 


cur  =  cur  +  pos; 
while  (*cur  ==  ‘  ‘) 

cur++;  /*  skip  whitespace  after  linebreak  */ 
dy  +=  LINE_TO_RASTER_Y(l); 

) 

else  {  /*  print  cur  */ 

pw_text(pw,  dx,  dy,  PIX_SRC,  NULL,  cur); 
break; 

} 

}  /*  End  while  */ 

} 
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/*  FUNCTION:  my_notify()  */ 

/*  PURPOSE:  track  mouse  and  handle  other  needed  events  */ 
/*  CALLED  BY:  */ 


/*  RETURNS:  integer  */ 
/*  CALLS:  */ 


/*  GLOBALS:  Canvas  canvas  <interp.h>  */ 


Notify_value  my_notify(frame,  event,  arg,  type) 
Frame  frame; 

Event  *event; 

Notify_arg  arg; 

Notify _event_type  type; 

{int  id  =  event_id(event); 

Notify_value  value; 

if  (id  >=  ASCILFIRST  &&  id  <=  ASCILLAST) 

{  if  (id  >=  “  &&  id  <=  ( 

inbuf[inbuflen++]  =  (char)  id; 
inbuf[inbuflen]=’_’;  /*  simulate  cursor  */ 

} 

else  if  (id  ==  ‘\b’  II  id  ==  ASCILLAST/*  DEL  */)  { 
inbuf(inbuflen]  =  ‘\3’; 
if  (inbuflen>0)  inbufl-inbuflenj  = 

) 

else  if  (id  ==  ‘\024’  /*  CTRL-U  */)  { 
while  (inbuflen>0)  inbuf[inbuflen--)  =  %)': 
inbuflinbuflen]  = 

} 

else  if  (id  ==  ‘\r’  )  inbuflinbuflen]  =  ‘\()'; 

} 

else 

switch  (id)  { 

case  LOC_STILL:  /*  fall  through  */ 
case  LOC.WINENTER:  /*  fall  through  */ 
case  LOC_WINEXIT:  /*  fall  through  */ 
case  LOC_DRAG;  /*  fall  through  */ 
case  LOC_TRAJECTORY:  /*  fall  through  */ 
case  LOC.RGNENTER:  /*  fall  through  */ 
case  LOC.RGNEXIT:  /*  fall  through  */ 
case  MS_LEFT:  /*  fall  through  */ 
case  MS_RIGHT:  /*  fall  through  */ 
case  MS_MIDDLE:  /*  fall  through  */ 
case  LOC.MOVE: 
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mousex  =  event_x(event); 
mousey  =  event_y(event); 
break; 

default:  break; 

} 

value  =  notify_next_event_func(frame,event,arg,type);  /*  let  window  handle  */ 
return  value; 

} 
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/*  FUNCTION;  do_expr()  */ 

/*  PURPOSE:  evaluate  expression  structure  and  return  value  */ 

/*  CALLED  BY:  doJocationO  */ 

/*  RETURNS;  integer  */ 

/*  CALLS:  (recursive)  */ 

/*  GLOBALS:  Canvas  canvas  <interp.h>  int  mousex,  mousey  */ 


int  do_expr(exptr) 
struct  expnode  *exptr; 

{int  Ihs,  rhs; 

if  (exptr  ==  NULL)  return  0; 

if  (exptr->left  ==  NULL  &&  exptr->right  ==  NULL)  { 
if  (exptr->vamame  !=  NULL)  ( 
if  (strcmp(exptr->varname,  “halfwid”)  ==  0) 
return  (int)  window_get(canvas,  WlN_WlDTH)/6; 
else  if  (strcmp(exptr->vamame,  “halfht”)  ==  0) 
return  (int)  window_get(canvas,  WlN_HElGHT)/6; 
else  if  (strcmp(exptr->vamame,  “mouseX”)  ==  0) 
return  mousex; 

else  if  (strcmp(exptr->vamame,  “mouseY’*)  ==  0) 
return  mousey; 

/*  EVENTUALLY:  search  for  varname  in  redisplay  list  &  deal  with 
components*/ 

) 

else  return  exptr- >val; 


Ihs  =  0; 
rhs  =  1; 

if  (exptr->left  !=  NULL)  Ihs  =  do_expr(exptr->Ieft); 

if  (exptr->right  !=  NULL)  rhs  =  do_expr(exptr->right); 

switch  (exptr->op)  { 

case  ‘  ‘:  return  Ihs; 

case  return  Ihs-rhs; 

case  “*’:  return  lhs*rhs; 

case  V’:  return  Ihs/rhs; 

case 

default :  return  Ihs-t-rhs; 

) 

) 
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/*  FUNCTION:  do_location()  */ 

/*  PURPOSE:  determine  location  for  actions  in  list  */ 

/*  CALLED  BY:  do_action_list()  */ 

/*  RETURNS:  x,y  */ 

/*  CALLS:  do_expr  */ 

/*  GLOBALS:  <interp.h>  * 

void  do_location(locptr,  x,  y) 
struct  locnode  *locptr; 
int  *x,  *y; 

{if  (locptr  ==  NULL)  return; 
else  ( 

*x  =  do_expr(locptr->x); 

*y  =  do_expr(locptr->y); 

) 

) 
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/*  FUNCTION:  do_action_list()  */ 

/*  PURPOSE:  execute  actions  in  action  list  */ 

/*  CALLED  BY :  start_selected()  <inteq>.c>  */ 

/*  RETURNS:  void  */ 

/*  CALLS:  do_location()  */ 

/*  GLOBALS:  Canvas  canvas  <interp.h>  */ 
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void  do_action_list(action_node) 
struct  actnode  *action_node; 

{ 

int  dx,  /*  X  coordinate  of  pixwin  origin  */ 
dy,  /*  y  coordinate  of  pixwin  origin  */ 
dw,  /*  width  of  pixwin  */ 
dh,  /*  height  of  pixwin  *! 
op;  /*  rasterop  */ 

Pixwin  *pw  =  canvas_pixwin(canvas); 

Pixrect  *image; 

char  error_msg[IL_ERRORMSG_SIZE]; 


for  (inbuflen  =  0;  inbuflen  <2048;  inbuflen++) 
inbuff  inbuflen]  =  ‘\0’; 
inbuflen  =  0; 


#define  REG_WIDTH  (int)  window_get(canvas,  WlN_WlDTH)/3 
#define  REG.HEIGHT  (int)  window_get(canvas,  WlN_HElGHT)/3 
while  (action_node  !=  NULL){ 
switch  (action_node->aciloc)| 
case  REG_ALL:  {  /*  region  0  */ 
printf(“Action  in  region  ALL  (code  =  %d)\n”, 
action_node->actloc); 
dx  =  0; 

dy  =  LINE_TO_RASTER_Y(l); 
dw  =  (int)  window_get(canvas,  W1N_WIDTH); 
dh  =  (int)  window_get(canvas,  WIN_HE1GHT); 
break; 

) 

case  REG_ONE:{  /*  region  1  */ 

printf(“Action  in  region  1  (code  =  %d)Nn”,  action_node->actloc); 
dx  =  0; 

dy  =  LlNE_TO_RASTER_Y(  1 ); 
dw  =  REG_W1DTH; 
dh  =  REG_HE1GHT; 
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break; 

} 

case  REG_TWO:  { 

printf(“ Action  in  region  2  (code  =  %d)\n”,  action_node->actloc); 
dx  =  REG.WIDTH; 
dy  =  LINE_TO_RASTER_Y(l); 
dw  =  REG_WIDTH; 
dh  =  REG_HEIGHT; 
break; 

) 

case  REG_THREE:  { 

printf(“ Action  in  region  3  (code  =  %d)\n”,  action_node->actloc); 
dx  =  2  ♦  REG.WIDTH; 
dy  =  LINE_TO_RASTER_Y(  1); 
dw  =  REG_WIDTH; 
dh  =  REG.HEIGHT; 
break; 

} 

case  REG_FOUR:{ 

printf(“Action  in  region  4  (code  =  '^d)\n’*,  action_node->actloc); 
dx  =  0; 

dy  =  REG.HEIGHT  +  LINE_TO_RASTER_Y(  1 ); 
dw  =  REG.WIDTH; 
dh  =  REG.HEIGHT; 
break; 

) 

case  REG_FIVE:{ 

printt(“Action  in  region  5  (code  =  %d)\n’\  action_node->aciloc): 
dx  =  REG.WIDTH; 

dy  =  REG_HEIGHT  +  LINE_TO_RASTER_Y(l); 
dw  =  REG_WIDTH; 
dh  =  REG_HEIGHT; 
break; 

} 

case  REG_SIX:  { 

printf(“Action  in  region  6  (code  =  %d)\n”,  action_node->actloc); 
dx  =  2  ♦  REG.WIDTH; 

dy  =  REG.HEIGHT  +  LINE_TO_RASTER_Y(l); 
dw  =  REG_WIDTH; 
dh  =  REG_HEIGHT; 
break; 

) 

caseREG_SEVEN;{ 
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printf(“Action  in  region  7  (code=%d)Nn”,  action_node->actloc); 
dx  =  0; 

dy  =  2  *  REG_HEIGHT  +  LINE_TO_RASTER_Y(l): 
dw  =  REG_WIDTH; 
dh  =  REG.HEIGHT; 
break; 

) 

case  REG_E1GHT:{ 

printf(“ Action  in  region  8  (code=%d)\n”,  action_node->actloc); 
dx  =  REG_WIDTH; 

dy  =  2  *  REG.HEIGHT  +  LINE_TO_RASTER_Y(l); 
dw  =  REG_W1DTH; 
dh  =  REG_HEIGHT; 
break; 

I 

case  REG_NINE:{ 

printf(“ Action  in  region  9  (code='^d)\n’‘,  aciion_node->actloc); 
dx  =  2  *  REG_WIDTH; 

dy  =  2  *  REG.HEIGHT  +  LlNE_TO_RASTER_Y(  1 ); 
dw  =  REG_WIDTH; 
dh  =  REG_HEIGHT; 
break; 

) 

case  REG_OTHER: 
default;  ( 

printf(“Unrecognized  region  code  d\n'‘,action_node->actloc); 

) 

)  /*  End  switch  */ 

switch  (action_node->action)| 

caseACT_DRAW:{ 

printf(“Draw\n”); 

if  (image  =  icon_load_mpr(action_node->info_sir, 
error_msg))  { 

do_location(action_node->infojoc,  &dx,  &dy); 
pw_write(pw,  dx,  dy,  64, 64,  PIX_SRC,  image,  0,  0); 

) 

else  fprintf(stderr,  “%s\n”,  error_msg): 
break; 

] 

case  ACT_CLEAR :  { 
printf(“Cleai\n”); 

if  (action_node->info_str  !=  NULL)  | 
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do_location(action_node->info_loc,  &dx,  &dy); 
pw_writebackground(pw,  dx,  dy,  64, 64,  PIX_SRC); 

} 

else  pw_writebackground(pw,  dx  -  CHAR_TO_RASTER_X(  1 ), 

dy  -  LINE_T0_RASTER_Y(1), 

dw  +  CHAR_TO_RASTER_X(l),  dh,  PIX_SRC); 

break; 

) 

case  ACT_WRITE:{ 

do_write(dx,dy,dw,dh,action_node->info_str); 

break; 

} 

caseACT_INPUT:{ 
printf(“Input\n”); 
inx  =  dx; 
iny  =  dy; 

pw_writebackground(pw,  dx  -  CHAR_TO_RASTER_X(l), 
dy  -  LINE_TO_RASTER_Y(l), 
dw  +  CHAR_TO_RASTER_X(l),  dh,  PIX_SRC); 
break; 

} 

caseACT_PAUSE:{ 

printf(“PauseNn”); 

sleep(action_node->info_int); 

/*  while  (is_pausing);  set  by  pause,  cleared  by  end_of_pause  */ 
break; 

1 

case  ACT_QUIT:{ 

printf(“Quit\n”); 

break; 

} 

case  ACT_DRAG:{ 
printf(“Drag\n”); 

break; 

) 

)  /*  End  switch  */ 

action_node  =  action_node->next; 

}  /*  End  while  */ 

/*  test  for  only  no-user-action  responses  &  set  up  for  seconds  */ 

} 


120 


0 


d 


i|(  Ik  )k  iK  % )(( afc  ifc  :fc  3fc  ;fc  )(e  3k  a|c  ifc  i(e  4t  lit  %  ](c  %  )|e  3fc  jfc  %  :4c  3k  ^  ifc  ifc  9fc  %  a|c  3|(  3fc  3|c^ 


/*  FUNCTION:  do_response_list()  */ 

/*  PURPOSE:  execute  actions  in  response  list  */ 

/*  CALLED  BY:  input_events()  */ 

/*  RETURNS:  int  */ 

/*  CALLS:  create_assert_list  <do_assert_list.c>  */ 

/*  GLOBALS:  current_state  <interp.c>,  inbuf,  inbuflen  */ 
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int  do_response_list(response_node,  res_code) 
struct  resnode  *response_node; 
int  res_code; 

{  struct  resnode  *cur  =  response_node; 
int  retval  =  0; 

printf(“testing  %d\n”,res_code); 
while  (cur  !=  NULL){ 
if  (res_code  ==  RES_NULL)  { 

/*  evaluate  expression  */ 

} 

else  if  (res_code  ==  cur->expr->res_act)  | 

/*  evaluate  and  test  event  */ 

) 

if  (retval)  { 

if(cur->label!=NULL) 

create_assert_list(current_state->nodeid, 

cur->label); 

current_state  =  cur->node; 
cur  =  NULL; 

) 

else  cur  =  cur->next; 

}  /*  End  while  */ 
return  retval; 

} 
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/*  FUNCTION:  input_events()  */ 

/*  PURPOSE:  handle  events  and  call  for  response  evaluation  */ 
/*  CALLED  BY:  define_base_canvas()  <interp.c>  */ 

/*  RETURNS:  void  */ 

/*  CALLS:  do_response_list  do_action_list  */ 

/*  GLOBALS:  current_state  <interp.c>  */ 


void  input_events(window,  event,  arg) 
Window  window; 

Event  *event; 
caddr_t  arg; 

{int  id  =  event_id(event); 
int  rescode  =  RES_NULL; 


#define  TEST_RES(Opcode)  \ 
if  (do_response_list(current_state->reslist.  Opcode))  \ 
do_action_list(current_state->actlist) 

if  (current_state  ==  NULL)  return; 

if  (id  >=  ASCILFIRST  &&  id  <=  ASCII_LAST)  { 
if((char)id==  V){ 

TEST_RES(RES_KEY); 

for  (inbuflen=0;  inbuflen<2048;  inbuflen++) 

inbuf[inbuflen]  = 

inbuflen=0; 

) 

else  do_write(inx,  iny,  REG_W1DTH,  REG_HE1GHT,  inbuf); 

) 

else  if  (id  ==  MS.LEFT)  { 

TEST_RES(RES_CLICKLEFT); 
else  TEST_RES(RES_CL1CKANY); 

} 

else  if  (id  ==  MS.MIDDLE)  { 
TEST_RES(RES_CLICKMID); 
else  TEST_RES(RES_CLICKANY); 

} 

else  if  (id  ==MS_RIGHT)  { 
TEST_RES(RES_CLICKRIGHT); 
else  TEST_RES(RES_CLICKANY); 

) 
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else  if  (id  =  L(X:_MOVE  II  id  «  LOC.DRAG  II  id  ==  LOC.TRAJECTORY)  ( 
TEST  RES(RES_MOUSEMOVE); 

} 

) 
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/*  FUNCTION:  pause()  */ 

/*  PURPOSE:  start  and  monitor  timer  */ 

/*  CALLED  BY:  do_action_list()  */ 

/*  RETURNS:  void  */ 

/*  CALLS:  */ 

/*  GLOBALS:  */ 
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Notify_value  pause_time(client,  which) 

Notify_client  client; 
int  which; 

{ 

printf(“Entered  PAUSE_TIME\n”); 
printf(“%i  secondsNn”,  which); 
is_pausing  =  0; 
return  (NOTIFY_DONE); 

} 

void  pause(time) 
int  time; 

{ 

struct  itimerval  run_timer; 

printf (“Entered  PAUSE  procedure\n“); 
printf(“Length  of  timer  is  %i\n“,  time); 
if  (time  <=  0)  return;  /*  sman-alecs...  */ 
is_pausing  =  1; 

/*  set  up  interval  with  which  to  RELOAD  the  timer  */ 
run_timer.it_interval.tv_usec  =  0; 
run_timer.it_interval.tv_sec  =  0;  /*  timer  interval  */ 

/*  set  up  INITIAL  value  with  which  to  set  the  timer  */ 
run_timer.it_value.tv_usec  =  0; 
run_timer.it_value.tv_sec  =  time;  /*  current  value  */ 

printf(“Calling  set_itimer_func\n”); 

/*  turn  on  interval  timer  for  client  */ 

(void)notify_set_itimer_func(canvas,  pause_time,  1T1MER_REAL, 
&run_timer,  ITIMER_NULL); 

) 
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#include  “interp.h” 


/*  FUNCTION:  create_assert_list()  */ 

/*  PURPOSE:  create  linked  list  of  assert  states  and  identifier  */ 

/*  CALLED  BY:  do_response_listO  */ 

/*  RETURNS:  void  */ 

/*  CALLS:  find_assert_list()  */ 

/*  GLOBALS:  struct  assen  *assertjist  <interp.h>  */ 

struct  assert  *create_assert_list(node,  identifier) 
char  *node,  *identifier; 

{ 

struct  assert  *tmp  =  assert_list; 
char  *temp_id; 
int  found  =  1 ; 

/*  allocate  space  for  tempjd  */ 

temp_id  =  (char  *)malloc(strlen(node)  +  strlen(identifier) 

+  1); 

/*  put  asserted  state  in  proper  format  for  comparison  with  past  */ 

/*  identifier  */ 

strcpy(temp_id,  node): 

strcat(temp_id,  “/”); 

strcat(temp_id,  identifier); 


if  (tmp  ==  NULL)! 

/*  empty  list,  create  first  link  */ 

assertjist  =  (struct  assert  *)malloc(sizeof(siruct  assert)); 

assen_list->id  =  temp_id; 

assert_list->next  =  NULL; 

) 

else{ 

/*  see  if  identifier  already  in  assert  list  */ 
printf(“Before  call  Find,  found  =  9J^i\n”,  found); 
found  =  find_assert_list_id(assert_list,  temp_id); 

printf(“Just  returned  from  FIND.  FIND  =  %i\n’\  find_assen_list_id(assert_list, 
tempjd)); 

printf(“Just  returned  from  FIND.  FOUND  =  ^?^i\n”,  found); 
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if  (found  ==  0){ 

/*  identifier  not  in  assert  list  */ 

/*  find  end  of  list  and  add  new  link  */ 
while  (tmp->next  !=  NULL){ 
tmp  =  tmp->next; 

}  /*  End  while,  end  of  assert  list  found  */ 

/*  create  space  in  memory  for  new  link  */ 

tmp->next  =  (struct  assert*)malloc(sizeof(struct  assert)); 

tmp  =  tmp->next; 

tmp->id  =  temp_id; 

tmp->next  =  NULL; 

}/*End  if*/ 

}  /*  End  else  */ 

printf(“ASSERT  LIST  FOLLOWSNn”). 
tmp  =  assertjist; 
while  (tmp  !=  NULL){ 
printf(“%s\n”,  tmp->id); 
tmp  =  tmp->next; 

} 

return(assert_list); 

) 
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/*  FUNCTION;  find_assert_list_id()  */ 

/*  PURPOSE:  find  given  identifier  in  assert  list  */ 

/*  CALLED  BY;  create_assert_list()  */ 

/*  RETURNS:  int  */ 

/*  CALLS;  */ 

/*  GLOBALS:  */ 

^******!|c*j|c**********!ie****  *************  Jic**  *******  jicjic^^JicJiisicsitsicjic**********^ 

int  find_assert_list_id(list,  target) 
struct  assert  *list; 
char  *target; 

{ 

int  status; 

printf(“Begin  FIND\n”); 

printf(“TARGET  is:  %s  and  ASSERT  ID  is:  %s\n”,  target,  list->id); 
if  (strcnip(list->id,  target)  ==  0){  /*  found  match  */ 
printf(“Assert  ID  FOUND.  Return  1  .\n'*); 
status  =  1 ; 

printf(“Returning  %i\n”,  status); 
return  (status); 

) 

else{ 

if  (list->next  ==  NULL){  /*  end  of  assert  list  */ 

/*  target  not  found  */ 

printf(“Assert  ID  NOT  FOUND  and  END  OF  LIST.  Return  ().\n”); 
status  =  0; 

printf(“Returning  %i\n”,  status); 
return  (status); 

) 

else{  /*  target  nof  found,  move  to  next  in  assert  list  */ 
piintf(“Assert  ID  NOT  FOUND.  Recursing.  .  .\n’'); 
return  find_assert_list_id(list->next,  target): 

} 

) 

} 
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APPENDIX  F 


% 

DATA  STRUCTURE  EXPLANATION 


Illustrations  of  the  menu  and  cfdgraph  data  structures  appear  in  Figures  1  and  2,  respectively,  as  visual 


aids. 

1.  menu 

a.  title 

A  character  suing  of  the  title  of  the  tutorial. 

b.  choices 

A  pointer  to  a  linked  list  of  the  titles  of  the  start  states  to  appear  in  the  main  menu.  The 
choices  pointer  points  to  menunode. 

2.  menunode 
a.  choice 

A  character  string  of  the  title  of  the  main  menu  item. 
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CFD  GRAPH 
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FIGURE  2:  CFD  Data  Structure 


b.  state 


A  pointer  to  the  state  (cfdnode)  of  that  main  menu  item  in  the  cfdgraph.  The  state  pointer 
points  to  cfdnode.  This  allows  the  tutorial  to  go  directly  to  that  state  within  the  cfdgraph. 

c.  next 

A  pointer  to  the  next  menunode  in  the  choices  linked  list. 

3.  cfdnode 

a.  nodeid 

A  character  suing  identifying  the  state. 

b.  actlist 

A  pointer  to  a  linked  list  of  the  action  li.st.  The  actlist  pointer  points  to  an  actntxle  linked  list 

data  structure. 

c.  reslist 

A  pointer  to  a  linked  list  of  the  response  list.  The  resli.st  pointer  points  to  a  resnode  linked 
list  data  structure. 

d.  next 

A  pointer  to  a  linked  list  of  ncxlcs  in  the  cfdgraph.  The  next  pointer  points  to  the  next 
cfdnode  created,  not  necessarily  the  next  state. 

4.  actnode 

a.  actloc 

An  integer  representing  the  regionjd.  The  region Jd  and  their  corresponding  region  codes 
arc  listed  in  the  file  parscr.h  found  in  Appendix  D. 

b.  action 

An  integer  representing  the  action  in  the  acdonjnode.  The  action  codes  arc  found  in  the  file 
par.scr.h  in  Appendix  D. 
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c.  info_str 


A  character  string  argument  for  the  text  to  be  displayed  in  the  window  or  the  file  name  of  an 

icon. 

d.  infojnt 

An  integer  representing  the  different  input  modes,  such  as  mouse.  The  input  modes  and  the 
corresponding  codes  are  found  in  the  file  parser.h  in  Appendix  D. 

e.  infojoc 

A  pointer  to  a  linked  list  of  the  location  arguments  in  the  action  list.  The  infojoc  pointer 
points  to  a  locnode  linked  list  data  sU'ucturc. 

/.  next 

A  pointer  to  a  linked  list  of  each  action  in  the  action  list.  The  next  pointer  points  to  actnode. 

5.  locnode 

a.  X 

A  pointer  to  a  linked  list  data  structure  of  the  x  coordinate  of  a  location  in  the  window.  The 
X  pointer  points  to  an  expnode. 

b.  y 

A  pointer  to  a  linked  list  data  sU-ucture  of  the  y  coordinate  of  a  location  in  the  window.  The 
y  pointer  points  to  an  expnode. 

6.  expnode 

a.  left 

A  pointer  to  a  linked  list  of  the  operands  of  an  arithmetic  expression.  The  left  pointer  points 

to  expnode. 

b.  right 

A  pointer  to  a  linked  list  of  the  operands  of  an  arithmetic  expression.  The  right  pointer  points 

to  expnode. 
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c.  op 


A  character  representing  the  four  arithmetic  operators:  +,  ♦  and  /. 
d.  varname 

A  character  string  of  the  argument  mouseX,  mouseY,  the  identifier  for  the  icon  file  name  or 
the  variable  name  used  in  the  arithmetic  expression.  Refer  to  Figures  4  and  5  for  an  example. 


(1,  draw,  mouse_sym@(mouseX,  mouseY)) 


FIGURE  4:  Example  of  varname 


e.  comp 

A  char  specifying  x,  y,  or  blank.  The  x  and  y  refer  to  identifier.x  and  identifier.y, 
respectively.  Refer  to  Figures  4  and  5  for  an  example. 

/  val 

An  integer  representing  the  operand  value  in  the  expression. 
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(1,  clear,  mousc_sym@(dciccior.x.  dcicclor.y)) 


FIGURE  5:  Another  Example  of  varname 


7.  resnode 


a.  expr 

A  pointer  to  a  tree  representation  of  each  response  in  the  response  list.  The  expr  pointer 
points  to  an  opnode  linked  list  data  structure. 

b.  label 

A  character  string  for  the  identifier  associated  with  assert.  When  the  actual  as.scrl  list  is 
created,  the  character  7’  separates  the  state  and  the  label.  For  example,  if  the  state  =  sl  1  and  the  label  =  “left,” 
then  the  assert  list  identifier  would  be  “.st_l/left.” 

c.  node 

A  pointer  to  the  state  or  node  in  the  cfdgraph  to  go  to  if  the  given  response  is  received.  The 
node  pointer  points  to  a  cfdnode  linked  list  data  structure. 
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d.  next 


A  pointer  to  the  next  response  in  the  response  list.  The  next  pointer  points  to  a  resnode  linked  list 
data  structure. 

8.  opnode 

a.  left 

A  pointer  to  the  left  node  in  a  tree  structure  of  a  response  that  includes  logical  operators.  The 
left  pointer  points  to  another  opnode.  Figure  20  illustrates  one  of  the  response  events  of  slate  st_l_l_25  of 
the  POST  script  (Appendix  B). 

b.  right 

A  pointer  the  right  node  in  a  tree  structure  of  a  response  that  includes  logical  operators.  The 
right  pointer  points  to  another  opnode.  Figure  6  illustrates  one  of  the  response  events  of  state  st_l_l_25  of 
the  POST  script  (Appendix  B). 

c.  operator 

An  integer  representing  the  logical  operators.  The  logical  operators  and  their  corresponding 
codes  arc  listed  in  the  file  parscr.h  in  Appendix  D. 

d.  resjact 

An  integer  representing  the  response  event.  The  response  codes  arc  listed  in  the  file  parscr.h 
found  in  Appendix  C. 

e.  resjeft 

A  pointer  to  an  arithmetic  operation  used  in  the  relop  or  loc _part  of  ihc  grammar.  The 
resjeft  pointer  points  to  an  expnode. 

/  resjight 

A  pointer  to  an  arithmetic  operation  used  in  the  relop  or  loc _part  of  the  grammar.  The 
res.right  pointer  points  to  an  expnode. 

g.  resjnt 

An  integer  for  the  integer  argument  in  the  response  jnode  “seconds.” 
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(click-continuc  &  ((past  si_l_6_25  help  I  past  sl_l_6_25  wrong_ans)) 


click-coniinuc 


si_  1  _6_25/hclp  st_  1  _6_25/wrong_ans 


opnode 

Icfi _ 

operator  =  & 
righ 

rcs_act  =  RES_NULL 

rcs_lefl 

res_right 

res  ini 


opnode 

left  =  NULL 
operator  =  OP_NULL 
right  =  NULL 

rcs_acl  =  RES.CLICKCONT 

resjcfl 

rcs_righi 

rcsjnt 


opnode 

Icfl _ 

operator  =  OP_OR 
righ 

res_act  =  RES_NULL 

res_lefi 

rcs_right 

res_ini 

res  str 


opnode 

left  =  NULL 

operator  =  OP_NULL 

right  =  NULL 

rcs_act  =  RES_PAST 

resjefi 

res_right 

rcs_ini 

res_sir  =  si_6_25/help 


opnode 

left  =  NULL 

operator  =  OP_NULL 

right  =  NULL 

res_act  =  RES_PAST 

res_left 

res_right 

res_int 

rcs_str  =  si_6_25/wrong_ans 


FIGURE  6:  Response  Event  Data  Structure 
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k.  nsjtr 


A  chaiacter  siring  representing  the  kientirm  for  jNUf. 
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